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.