Question

Напишите программу которая вычисляет дискрименант квадратного уравнения (в паскале)

Answer 1

var a,b,c,d:integer;
begin
writeln('Введите коэффициенты a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
writeln('D = ',d);
end.

Пример:
Введите коэффициенты a, b, c:
5 2 8
D = -156