Cách `1` : sử dụng lệnh lặp For...do

var n,i:longint;

       s:real;

begin

for i:=1 to 100 do

s:=s+1/i;

writeln(s:2:0);

readln

end.

Cách `2 : `Sử dụng lệnh lặp While ... do

var n,i:longint;

    s:real;

begin

while (i<>0) and (n>=i) do

begin

s:=s+1/i;

i:=i+1;

end;

writeln(s:2:0);

readln

end.

- Cách 1 :

uses crt;

var i : integer; T : real;

begin

clrscr;

T := 0;

for i := 1 to 100 do

T := T + 1 / i;

write('T = ', T : 2 : 2);

readln

end.

- Cách 2 :

uses crt;

var i : integer; T : real;

begin

clrscr;

i := 1; T := 0;

while i <= 100 do

begin T := T + 1 / i;

i := i + 1; end;

write('T = ', T : 2 : 2);

readln

end.