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

Помогите пожалуйста, 20 баллов, очень нуждаюсь в вашей помощи.
Задача: Даны вещественные числа a,b,c (а не равно 0). Выяснить, имеет ли уравнение a*x*x+b*x+c=0 вещественные корни.
Заранее безмерно благодарна.

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

Var a, b, c, D: real;
begin
write(Введите  a, b, c>> );
readln(a, b, c);
if a<>0 then
begin
D:=sqr(b)-4*a*c;
if D>=0 then writeln(Имеет корни) else writeln(Не имеет корней)
end
else
writeln(a не должен быть равным 0)
end.