Question

Запиши программу на языке Паскаль

Answer 1

Объяснение:

Var x,y: real;

begin

write('введите х:

readln(x);

if(x<=0) then y:=0

else if(x<=1) then y:=x

else y:=x*x;

writeln(y:3:0);

end.