Các bạn ơi giúp mình vs: Viết chương trình tính tổng: 1/2*2/3+2/3*3/4+-+99/100*100/101

0 bình luận về “Các bạn ơi giúp mình vs: Viết chương trình tính tổng: 1/2*2/3+2/3*3/4+-+99/100*100/101”

1. uses crt;

   var i:byte;

   t:real;

   begin

   clrscr;

   t:=0

   for i:=2 to 100 do

   t:=t+((i-1)/i)*(i/(i+1))

   writeln(‘tong la: ‘,t:1:2);

   readln;

   end.

   Bình luận

2. Program abc;

   Uses crt;

   Var i : longint;

   s : real;

   Begin

    Clrscr;

    i:=2;

     While n<=100 do

      Begin

       s:=s+((i-1)/i)*(i/(i+1));

       i:=i+1;

     End;

    Writeln(‘Tong tren co gia tri la: ‘,s:1:1);

    Readln

   End.

   Bình luận