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.

Answer 2

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