Question

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

Answer 1

begin //PascalABC.NET

 var x, y: real;

 Read(x);

 if x <= 0 then Print(0)

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

end.