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

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

var s:real; i,n:integer;beginwrite('n=');read(n);for i:=1 to n dos:=s+i/(i+1);writeln('s=',s:4:2);end.