Напечатайте программу на языке Паскаль нахождения дискриминанта D=b2 – 4ac квадратного уравнения а*х2+b *х+с=0 для конкретных значений коэффициентов а=3,в=5,с=2. Напишите строку вывода результата с комментарием.
Ответ: решение ниже
Объяснение:
program ky;
var
a, b, c: integer;
begin
A := 3;
b := 5;
c := 2;
Writeln('Ответ ', sqr(b) - 4 * a * c,';');
end.