Задачка такая
вычислить сумму s=1/3+1/(3+2)+1/(3^2+2)+1/(3^3+2)+..+1/(3^10+2)
используя for и оператор go to
вот пробывал но невыходит
Program dgfsd;.
Var
S:real;
p,i:integer;
begin
p:=0;
s:=0;
for i:=1 to 10 do
begin
p:=p+i;
s:=s+1/(p+2);
end;
writeln('s=',s:8:2);
readln;
end.