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