Viết chương trình tính tổng T= $\frac{1}{2.4}$+ $\frac{1}{}4.6$+-. + $\frac{1}{98.100}$

0 bình luận về “Viết chương trình tính tổng T= $\frac{1}{2.4}$+ $\frac{1}{}4.6$+-. + $\frac{1}{98.100}$”

1. Program tinh_tong;

   Uses crt;

   Var i: byte;

         T: real;

   Begin

   T:=0;

   For i:=2 to 98 do 

   If i mod 2= 0 then 

   T:=T+1/(i*(i+2));

   Writeln (‘Tong T la:’,T:8:2);

   Readln

   End.

   Bình luận

2. uses crt;
   var i : integer;
   t : real;
   begin clrscr; t:=0;
   for i:=1 to 100 do
   if i mod 2 = 0 then t:=t+1/(i*(i+2));
   write(‘Tong la :’, t);
   readln
   end.
   

   Bình luận