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.
