Ответ(ы) на вопрос:
Гостьvar
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end
Не нашли ответ?
Похожие вопросы