Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите программу в turbo pascal: найти корни квадратного уравнения ax^2+bx+c

Ответ оставил Гость

Var a,b,c,d,x,x1,x2:real;
begin
readln(a.b.c);
d:=sqr(b) - 4*a*c;
if d<0 then
write(нет корней)
else 
If d=0 then begin
x:=-b/(2*a);
write(x); end
else begin
x1:=(-b+sqrt(d)/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write(x1,x2);end;
readln
end.