Помогите с информатикой )) Можно решение в Паскале )

Question

Помогите с информатикой ))
Можно решение в Паскале )

---

Answer 1

Var s:real; i,n:integer;
begin
write('n=');read(n);
for i:=1 to n do
s:=s+i/(i+1);
writeln('s=',s:4:2);
end.

Comments

спасибооооо ))