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

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</p>

   if (x <= 0) then </p>

     writeln('0')

   else

     writeln(x);

 end

 else

   writeln(x*x);

end.

Comments

а если 18 без минуса