Bài 2: Lập trình tính tổng : A = 1 + 1/2 + 1/3 + ... + 1/n Với n là số nguyên được nhập vào từ bàn phím .

CT:

Program BT;

Var i,n:integer;

        S:real;

Begin

Write('n=');readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('S=');

Readln;

End.

*Xin 5* và ctlhn ạ