: Nhập N từ bàn phím (N>0), tính giai thừa của n (n!)

0 bình luận về “: Nhập N từ bàn phím (N>0), tính giai thừa của n (n!)”

1. program window;

   uses crt;

   var n,gt,i:int64;

   begin

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

   gt:=1;

   for i:=1 to n do gt:=gt*i;

   writeln(‘N!=’,gt);

   readln;

   end.

   Bình luận

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

   Bình luận