Даны вещественные числа a, b, c. Выяснить, имеет ли уравнение ах2 + bx + c = 0 вещественные корни.Написать программу!
Даны
вещественные числа a, b, c. Выяснить, имеет ли уравнение ах2 + bx +
c = 0 вещественные корни.
Написать программу!
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d:real;
begin
write('Введите коэффициенты a, b, c: ');
readln(a,b,c);
d:=(b*b-4*a*c);
if d<0 then writeln('Вещественных корней нет');
if d=0 then writeln('Один вещественный корень');
if d>0 then writeln('Два вещественных корня');
end.
Не нашли ответ?
Похожие вопросы