Pascal. Задача 2-5
Пользователь вводит коэффициенты a,b,c квадратного уравнения ax2 + bx + c = 0. Вывести корни этого уравнения или сообщение, что их нет. Отдельно рассмотреть, когда корни совпадают.
Решение
var
a, b, c, D : real;
begin
writeln('Введите коэффициенты квадратного уравнения a, b , c');
read(a, b, c);
D := b*b - 4*a*c;
if D < 0 then writeln('Уравнение не имеет корней')
else if D = 0 then writeln('Корни совпадают: ', -b/(2*a))
else begin
writeln('Первый корень: ', (-b + sqrt(D))/(2*a));
writeln('Второй корень: ', (-b - sqrt(D))/(2*a));
end;
end.