Определить сумму s=1/2+2/3+...+n/(n+1)

Question

Определить сумму s=1/2+2/3+...+n/(n+1)

Answer 1

Var s: real;
    i,n: integer;
begin
  write('n = ');  readln(n);
  s:=0;
  for i:=1 to n do s:=s+i/(i+1);
  writeln('сумма: ',s);
end.

n = 10
сумма: 7.98012265512266