Даны

вещественные числа a, b, c. Выяснить, имеет ли уравнение ах2 + bx +

c = 0 вещественные корни.

Написать программу!

Question

Информатика

Агафа

19 января, 20:19

Даны

вещественные числа a, b, c. Выяснить, имеет ли уравнение ах2 + bx +

c = 0 вещественные корни.

Написать программу!

+5

Ответы (1)

Знаете ответ на вопрос?

Леля · Answer 1

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.

Данывещественные числа a, b, c. Выяснить, имеет ли уравнение ах2 + bx +c = 0 вещественные корни.Написать программу!

Даны

вещественные числа a, b, c. Выяснить, имеет ли уравнение ах2 + bx +

c = 0 вещественные корни.

Написать программу!