*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}$
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm