Lập trình tính tổng: a) T= $\frac{1}{5}$ +$\frac{1}{6}$+... $\frac{1}{99}$ +$\frac{1}{100}$ b)T =$\frac{4}{5}$ +$\frac{5}{6}$+... $\frac{98}{99}$ +$\frac{99}{100}$ c)T= $\frac{6}{5}$ +$\frac{7}{6}$+... $\frac{99}{98}$ +$\frac{100}{99}$ Cái này là lập trình tính tổng T

*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.

a)

program a;

uses crt;

var i:integer;

      T:real;

begin clrscr;

     T:=0;

   for i:=5 to 100 do

     T:=T+1/i;

   write('T= ',T:4:2);

readln;

end.

b)

program b;

uses crt;

var i,j:integer;

      T:real;

begin clrscr;

     T:=0;

   for i:=4 to 99 do

   for j:=5 to 100 do

     T:=T+i/j;

   write('T= ',T:4:2);

readln;

end.

c)

program c;

uses crt;

var i,j:integer;

      T:real;

begin clrscr;

     T:=0;

   for i:=6 to 100 do

   for j:=5 to 99 do

     T:=T+i/j;

   write('T= ',T:4:2);

readln;

end.

Học tốt!