Help me Viết chương trình tính tổng T= $\frac{1}{1+2}$ +$\frac{2}{2+3}$ +$\frac{3}{3+4}$ +… 17/08/2021 Bởi Amaya Help me Viết chương trình tính tổng T= $\frac{1}{1+2}$ +$\frac{2}{2+3}$ +$\frac{3}{3+4}$ +…
var n,i: integer; kq: real; begin readln (n); for i:= 1 to n do kq:= kq + i/(i+i+1); writeln (kq); readln; end. Trong đó n là phần tử nhập từ bàn phím Code tính tổng1/(1+2) + 2/(2+3) + 3/(3+4) + …. + n/(n+n+1) Bình luận
var
n,i: integer;
kq: real;
begin
readln (n);
for i:= 1 to n do kq:= kq + i/(i+i+1);
writeln (kq);
readln;
end.
Trong đó n là phần tử nhập từ bàn phím
Code tính tổng1/(1+2) + 2/(2+3) + 3/(3+4) + …. + n/(n+n+1)