Question

«Можете мне помочь!»Буду вам благодарен если мне поможете.Дам 40 баллов

Answer 1

1 способ:
Var
integer:y,x;
begin
readln(x);
y:=x*x+7/x;
writeln(y);
end.
2 способ:
var
x,y,i:integer;
begin
readln(x);
y:=x*x+7;
i:=y/x;
writeln(i);
end.