petyaGavrikov

Verified answer

Var i:integer; st,s:real;
begin
st:=1; s:=0;
for i:=1 to 35 do
 begin
 st:=st*3;
 s:=s+2*i/st;
 end;
writeln('s = ',s);
end.

Результат:
s = 1.5