Question

Задача 4.


Помогите пожалуйста решить
​

Answer 1

Ответ:

var x,y:integer;

begin

   write('Введите x: '); readln(x);

   if x <= 0 then y:=0

   else if (0 < x) and (x <= 1) then y:=x

   else y:=sqr(x);

   write(y);

end.

При x = 19, y = 361