Question

Написать программу для вычисления x<0, то y=|x| иначе y=x^2​

Answer 1

Ответ:

var x, y:Integer;

begin

readln(x);

if x < 0 then

y:=abs(x)

else

y:=sqr(x);

writeln(y);

end.