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 ạ

0 bình luận về “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 ạ”

1. 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

   Bình luận

2. 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.

   Bình luận