Question

S=1/1+1/2+1/3+...+1/n cho đén khi 1/n

Answer 1

Uses crt;

var i,n,k: integer;

begin clrscr;

readln(n);

for i:=1 to n do k:=k+1/i;

writeln(k);

readln;

end.