... lần chưa biết trướcVí dụ 5: Program vi_du5_2;Var i: integer; T: real;Begin T:=0; i:=1; while i<=100 do begin T:=T+1/i; i:=i+1; end; writeln(‘tong T=‘,T:1 0:2 ); Readlnend. ... lặp với số lần chưa biết trướcVí dụ 5: Program vidu5_1;Var i: integer; T: real;Begin T:=0; For i:=1 to 100 do T:=T+1/i; Writeln (‘Tong T= ‘,T:1 0:2 ); ReadlnEnd. 2. Ví dụ về lệnh ... Writeln (‘Tong T= ‘,T:1 0:2 ); ReadlnEnd. 2. Ví dụ về lệnh lặp với số lần chưa biết trướcVí dụ 4: Tính tổng T=1+2+3+… sao cho tổng T nhỏ nhất lớn hơn 1000.Tính T=1+2+3+… sao cho tổng T nhỏ nhất...