Question

ПРОГРАММИРОВАНИЕ PascalABC

Вводится значение а,b,с
в уравнение y=ax^2+bx+c
D=b^2-4ac
Вывести дискрименант (числовое значение)​

Answer 1

var a,b,c,d: integer;

begin

Read(a,b,c);

d:=sqr(b)-4*a*c;

Write(d);

end.

Answer 2

Ответ:

var x,y,z,e:integer;

begin

readln(x,y,z);

e:=(x*x)-4*y*z;

writeln('Дискриминант = ',' ',e);

end.