Viết chương trình tinh và dưa ra màn hình giá trị N! với N là số nguyên dương được nhấp từ bàn phím. Giúp em vs ạ????

0 bình luận về “Viết chương trình tinh và dưa ra màn hình giá trị N! với N là số nguyên dương được nhấp từ bàn phím. Giúp em vs ạ????”

1. uses crt;
   var i,n,kq:longint;
   begin
           clrscr; 
           kq:=1;
           write(‘Nhap n: ‘); readln(n);
           for i:=1 to n do
                   kq:=kq*i;
          write(‘Ket qua la: ‘,kq);
           readln;
   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var i: longint;
       s,n: qword;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=1;
           For i:=2 to n do
                   s:=s*i;
           Write(n,’! = ‘,s);
           Readln
   End.

   Bình luận