По аргументу Х
постройке программу решения этой функции
Var x,y:integer;
begin
readln(x);
if x<=0 then y:=sqr(x)
else
y:=x-5;
writeln(y);
end.
Оцени ответ
