ПРОГРАММИРОВАНИЕ PascalABC Вводится значение а,b,с
в уравнение y=ax^2+bx+c
D=b^2-4ac
Вывести дискрименант (числовое значение)​

DedikovVladisl DedikovVladisl    1   10.02.2021 23:59    0

Ответы
оффЛис оффЛис  11.02.2021 01:00

var a,b,c,d: integer;

begin

Read(a,b,c);

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

Write(d);

end.

ПОКАЗАТЬ ОТВЕТЫ
anncopper anncopper  11.02.2021 01:00

var x,y,z,e:integer;

begin

readln(x,y,z);

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

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика