uses crt;

var i, n : integer; T : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

T:=0; i:=1;

while i<=n do begin

T:=T+1/i; i:=i+1;

end;

writeln('Tong le la: ',T:2:3);

readln

end.

Viết chương trinh tính tổng chẵn T= 1+1/2+1/3+1/4 +….+ 1/n. sử dụng lệnh while..do ;

uses crt ;
 var i, n : longint ;
  t : real ;
   begin
    clrscr ;
   write('n=') ;
    readln(n);
     i := 1 ;
      t := 0 ;
       while i<=n do
        begin
         if i mod 2=0 then
          t := t + 1/i ;
           i := i +1 ;
            end ;
             writeln('tong chan la: ',t:3:2);
              readln
               end .