viết chương trình tính n!( n giai thừa :n!=1*2*3…*n)

0 bình luận về “viết chương trình tính n!( n giai thừa :n!=1*2*3…*n)”

1. program ct;

   uses crt;

   var i,n:integer;

         gt:longint;

   begin clrscr;

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

        gt:=1;

      for i:=1 to n do

        gt:=gt*i;

      writeln(n,’ giai thua la: ‘,gt);

   readln;

   end.

   Học tốt!

   Bình luận

2. uses crt;
   var n,i,gt:longint;
   begin
         clrscr;
         write(‘n=’); readln(n);
         gt:=1;
         for i:=n downto 1 do gt:=gt*i;
         writeln(n,’!=’,gt);
         readln;
   end.

   Bình luận