Question

Дано натуральное n. Вычислить
2/1+3/2+4/3+...+n+1/n.

Answer 1

var

   s: real;

   n, i: integer;

begin

   readln(n);

   

   s := 0;

   for i := 1 to n do

       s := s + (i + 1) / i;

       

   writeln(s);

end.