По аргументу Х
постройке программу решения этой функции

Var x,y:integer;
begin
  readln(x);
  if x<=0 then y:=sqr(x)
    else
   y:=x-5;
  writeln(y);
end.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку