Viết chương trình tính tổng T=1+1/2+1/3+...+1/100

program tinh_tong;

uses crt;

var i:integer;

T:real;

begin

clrscr;

T:=0;

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

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

readln;

end.   

Cách For..do

Program BTH;
uses crt;
var s:real;
i:byte;
Begin
        clrscr;
        For i:=1 to 100 do
        Begin
                s:=s+1/i;
        end;
        writeln('Tong day so tren la: ',s:4:2);
        readln;
end.

Cách While..do

Program BTH;
uses crt;
var s:real;
i,n:byte;
Begin
        clrscr;
        n:=1;
        While n<100 do
        Begin
                s:=s+1/n;
                n:=n+1;
        end;
        writeln('Tong day so tren la: ',s:4:2);
        readln;
end.

Bạn chọn cách nha :)))