(Pascal-Nâng cao) Chuyên đề: Câu lệnh lặp

Question

Lập trình tính tổng A= 1+ 1/2+1/3+...+1/n (n: số được nhập từ bàn phím)

Answer 1

Program bai_tap;

Uses Crt;

Var i,n: integer;

      t: real;

Begin

Clrscr;

Readln(n);

t:=1

For i:=2 to n do t:=t+1/i;

Writeln('Tong A =',t);

Readln;

End.