составить программу вычисления дискриминанта квадратного уравнения при вводе значений его коэфициентов с клавиатуры
Ответ
6
var a, b, c: real;
begin
readln(a, b, c);
writeln(sqr(b) - 4 * a * c);
end.
begin
readln(a, b, c);
writeln(sqr(b) - 4 * a * c);
end.