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

Question

Информатика

Анект

14 октября, 22:14

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

+5

Ответы (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.