Составить программу которая находит корни неполного квадратного уравнения
Составить программу которая находит корни неполного квадратного уравнения
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы