Question

[foxbi]

Viết chương trình tính tổng
      S=1+1/2+1/3+....+1/n
    Với n là số nguyên được nhập từ bàn phím.

Answer 1

[HT.Phong (9A5)]

Uses crt;

var n,i,s: integer;

begin clrscr;

readln(n);

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

writeln(s);

readln;

end.