*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
4 lượt xem
2 đáp án
14 giờ trước