Question

Помогите пожалуйста !!!
Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0)
Запусти программу и введи значение x=−6.

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

Answer 1

Ответ:  

program z1;

var

 x, y: real;

begin

 readln(x);

 begin

   if x <= 0 then

     writeln() end;

 begin

   if x <= 1 then

     writeln(y:3) end;

 begin

   if x > 1 then

     writeln(sqr(x));

 end;

end.

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