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

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

1. var i:longint;

        s:real;

   begin

   for i:=1 to 97 do

   if i mod 2 <> 0 then

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

   write(‘s= ‘,s:0:4);

   readln

   end.

   Bình luận

2. program oken;
   uses crt;
   var i: byte;
       s: real;
   begin
       s:=0;
       for i:=1 to 97 do
           if (i mod 2=1) then
               s:=s+(1/(i*(i+2)));
       writeln(‘Tong S: ‘,s:0:3);
       readln;
   end.

   Bình luận