Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (N!)

0 bình luận về “Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (N!)”

1. program giaithua;

   uses crt;

   var n,i:byte;

         gt:int64;

   begin

        clrscr;

        write(‘Nhap so can tinh: ‘);  readln;

        gt:=1;

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

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

        readln;

   end.

   CHUC BAN HOC TOT

   Bình luận

2. Uses crt;
   Var i,n,gt:integer;
   Begin
      Clrscr;
      Write(‘Nhap n =’); readln(n);
      gt:=1;
      For i:=1 to n do
      gt:=gt*i;
      Writeln(n, ‘!=’,gt);
      Readln;
   End.

   *xin tlhn a (^o^)

   Bình luận