Viết ct tính T=1.2+2.3+3.4+…+n(n+1) sử dụng lệnh for…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 for…do”

1. Mã Code :

   var n,i,tich:integer;
   begin
   clrscr;
         tich:=1;
         write(‘Nhap n:’);readln(n);
         for i:=1 to n do tich:=tich*i;
         write(‘Tich so tu 1 den ‘,n,’ la:’,tich);
   readln;
   end

   Bình luận

2. var n,i,tich:integer;
   begin
   clrscr;
         tich:=1;
         write(‘Nhap n:’);readln(n);
         for i:=1 to n do tich:=tich*i;
         write(‘Tich so tu 1 den ‘,n,’ la:’,tich);
   readln;
   end

   mình xin ctlhn

   Bình luận