VIẾT CHƯƠNG TRÌNH: 1. Tính tổng T = $\frac{2}{1.3}$+ $\frac{4}{3.5}$+ $\frac{6}{5.7}$+-+ $\frac{98}{97.99}$

0 bình luận về “VIẾT CHƯƠNG TRÌNH: 1. Tính tổng T = $\frac{2}{1.3}$+ $\frac{4}{3.5}$+ $\frac{6}{5.7}$+-+ $\frac{98}{97.99}$”

1. program ct;

   uses crt;

   var S:real; i:integer;

   begin

   clrscr;

     S:=0;

       for i:=1 to 98 do

           if i mod 2=0 then S:=S+i/((i-1)*(i+1));

       writeln(‘tong T=’,S);

   readln

   end.

   Bình luận

2. 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+i/((i-1)*(i+1));

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

   Readln

   End.

   Bình luận