Cách 1: For..to..do:

uses crt;

var i: integer;

t: real;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+1/i;

writeln ('Tong la: ',t:1:2);

readln;

end.

Cách 2: While..do:

uses crt;

var i: integer;

t: real;

begin

clrscr;

t:=0;

i:=1;

while i<=100 do

begin

t:=t+1/i;

i:=i+1;

end;

writeln ('Tong la: ',t:1:2);

readln;

end.

$#Trumtinhoc$

Cách 1:

program tong;

uses crt;

var s,i: integer;

begin

clrscr;

s:=0; i:=1;

while i<=100 do begin s:=s+1/i;

i:=i+1; end;

writeln(' tong la' , s);

readln

end.

Cách 2:

program tong;

uses crt;

var i,s: integer;

begin

clrscr;

s:=0;

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

writeln ('tong la',s);

readln

end.