Задача 48769 ...

ggg

2020-04-29 07:54:19

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);
wpite('y=;y)
enol