Question

Нужно сделать 16 задание на языке pascal

Answer 1

Ответ:

PascalABC

##

var x := ReadInteger('Введите x:');

if (x > -5) and (x <= 5) then

   print(sqr(x)-x)

else

   print(sqr(x)-sin(sqr(x)))