Помогите пожалуйста! Надо составить программу для решения квадратного уравнения.

1

Ответы и объяснения

Лучший Ответ!
2014-04-14T15:31:04+04:00
Var a,b,c,d:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
writeln((-b-sqrt(d))/2/a);
writeln((-b+sqrt(d))/2/a);
end.