Запиши программу ** языке Паскаль для: y=0,еслиx≤0x,если 01Запусти программу и введи...

Question

Запиши программу на языке Паскаль для: y=0,еслиx≤0x,если 01Запусти программу и введи значение x=-17. (y:3:0) Число выведенное на экран:

Answer 1

begin //PascalABC.NET

 var x, y: real;

 Read(x);

 if x

 else Print(x > 1 ? x * x : x)

end.