T=1+1 phần 2+1 phần 3+...+1 phần 100 viết PT có dạng a) For...do b) While...do

a/

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.

b/

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.