viết chương trình tính n giai thừa (n!) n nhập từ bàn phím .sử dụng lệnh while…do giúp mk vs mk đag cần gấp ^-^

0 bình luận về “viết chương trình tính n giai thừa (n!) n nhập từ bàn phím .sử dụng lệnh while…do giúp mk vs mk đag cần gấp ^-^”

1. program phuongt;

   uses crt;

     var i, n: integer;

              s: longint;

   begin

                clrscr;

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

                i:=1; s:=1;

                while i<=n do 

                begin

                          s:=s*i;

                          i:=i+1;

                end;

                write(n, ‘! = ‘, s);

                readln

   end.

   Bình luận

2. program giaithua;

   uses crt;

   var i,n:byte;

         gt:int64;

   begin

   clrscr;

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

   gt:=1;   i:=1;

   while i<=n do

    begin

     s:=s*i;

     i:=i+1;

    end;

   write(n,’!= ‘,gt);

   readln

   end.

   Bình luận