Question

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

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


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

Answer 1

Программа выведет: 0

Текст программы:

var x:real;

begin

 writeln('Введите x');

 readln(x);

 if (x <= 1) then begin

   if (x <= 0) then

     writeln('0')

   else

     writeln(x);

 end

 else

   writeln(x*x);

end.