Составить программу которая находит корни неполного квадратного уравнения

Question

Информатика

Юния

20 октября, 16:02

Составить программу которая находит корни неполного квадратного уравнения

+2

Ответы (1)

Знаете ответ на вопрос?

Наум · Answer 1

Program koren;

var a, b, c, diskr, x1, x2:real;

begin

readln (a, b, c) ;

if a=0 then exit;

diskr:=b*b-4*a*c;

if diskr<0 then exit;

x1: = (-b-sqrt (diskr)) / (2*a)) ;

x1: = (-b+sqrt (diskr)) / (2*a)) ;

writeln (x1, x2) ;

end.