Verified answer

Программа:

Pascal:

var

 i, n: integer;

 S: real;

begin

 write('n = ');  readln(n);

 for i := 1 to n do S := S + (1 + i)/(2 + i);

 writeln(S);

end.