Question

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

Answer 1

program usl_oper;

var

x, y : integer;

begin

write('x=');

read(x);

if x<=0 then

y:=0

else

if x<=1 then

y:=x

else

y:=sqr(x);

write('y=',y)

end.