*Câu a):
Program tinh_tong;
Uses crt;
Var i: byte;
T: real;
Begin
T:=0;
For i:= 5 to 100 do
T:= T+ 1/i;
Writeln ('Tong T la:',T:5:2);
Readln
End.
*Câu b):
Program tinh_tong;
Uses crt;
Var i: byte;
T: real;
Begin
T:=0;
For i:= 4 to 99 do
T:=T+i/(i+1);
Writeln ('Tong T la:',T:5:2);
Readln
End.
*Câu c):
Program tinh_tong;
Uses crt;
Var i: byte;
T: real;
Begin
T:=0;
For i:=6 to 100 do
T:=T+i/(i-1);
Writeln ('Tong T la:',T:5:2);
Readln
End.