Написать программу, которая запрашивает коэффициенты квадратного уравнения и сообщает, сколько корней имеет уравнение. Pascal ABC

Question

Информатика

Волонила

9 сентября, 02:06

Написать программу, которая запрашивает коэффициенты квадратного уравнения и сообщает, сколько корней имеет уравнение. Pascal ABC

+4

Ответы (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 ('Корней нет')

else if d=0 then Writeln ('Один корень')

else Writeln ('Два корня')

end.