Question

Запиши программу на языке Паскаль для

: y= 0,еслиx≤0x,

если0 1. (y:3:0)

Запусти программу и введи значение x=5.


Число выведенное на экран:

Answer 1

var

   x,y:integer;

begin

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

   if x <= 0 then y := 0

   else if x <= 1 then y := x

   else y := sqr(x);

   write(y);

end.

Ответ: 25