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}$

2 câu trả lời

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.

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.