Viết chương trình tính tổng T= $frac{1}{1+2}$ +$frac{2}{2+3}$ +$frac{3}{3+4}$ Cám ơn ạ
2 câu trả lời
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.
n là nhập từ bàn phím nha bạn.
Var i,t,a integer;
t:=0;
a:=3;
for i:=1 to a do
begin
t:=t + (i/(i+1));
end;
writeln(t);
bạn thay a = số khác để thay đổi