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

Question

Информатика

Тахрир

2 марта, 16:56

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

+1

Ответы (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.