Viết ct tính T=1.2+2.3+3.4+…+n(n+1) sử dụng lệnh while…do

0 bình luận về “Viết ct tính T=1.2+2.3+3.4+…+n(n+1) sử dụng lệnh while…do”

1. program tong_T;

   uses crt;

   var n,i:integer;

         t:longint;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          i:=1;  t:=0;

          while i<=n do

                 begin

                        t:=t+i*(i+1);

                        i:=i+1;

                 end;

          write(‘T= ‘,t);

          readln;

   end.

   Bình luận

2. program phuongt;

   uses crt;

     var i, n: integer;

              t: longint;

   begin

              clrscr;

              write(‘Nhap n = ‘); readln(n);

              t:=0; i:=1;

              while i<=n do

              begin 

                        t:=i*(i+1)+t;

                        i:=i+1;

              end;

              write(‘Tich = ‘, t);

              readln

   end.

   Bình luận