: 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 tinh_giai_thua;
   uses crt;
   var N,i: integer;
       P: longint;
   begin
   clrscr;
   write(‘      N = ‘); readln(N);
   P:=1;
   for i:=1 to N do P:=P*i;
   writeln(    N,’! = ‘,P);
   readln
   end.

   Bình luận

2. program oken;

   uses crt;

   var n,i: integer;

         gt: qword;

   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