Viết chương trình sử dụng while..do tính tích 10 số tự nhiên đầu tiên. -Giúp mk với ạ cần gấp

0 bình luận về “Viết chương trình sử dụng while..do tính tích 10 số tự nhiên đầu tiên. -Giúp mk với ạ cần gấp”

1. uses crt;

   var tich:longint;

       i:byte;

   BEGIN

           clrscr;

           i:=2; tich:=1;

           while i<=10 do

           begin

                   tich:=tich*i;

                   inc(i);

           end;

           write(‘Tich 10 so tu nhien dau tien la ‘,tich);

           readln

   END.

   Xin ctlhn!

   Bình luận

2. program tinhtich;

   uses crt;

   var i:integer;

         tich:longint;

   begin

   clrscr;

   tich:=1;  i:=1;

   while i<=10 do

     begin

       tich:=tich*i;

       i:=i+1;

     end;

   write(‘Tich 10 so tu nhien dau tien la: ‘,tich);

   readln

   end.

   Bình luận