Question

Tính tổng của S = 1/2 + 1/2*3 + 1/3*4 +...+ 1/n*(n + 1) với điều kiện (0 < n < 10^5)

Answer 1

uses crt;
var i,n:integer;
s,t:real;
begin
clrscr;
readln(n);
s:=0.5;
for i:=2 to n do
s:=s+1/(i+1);
writeln('tong la: ',s:5:2);
readln;
end.