cho số n bất kỳ được nhập vào từ bàn phím . Viết giải thuật toán tính n giai thừa

0 bình luận về “cho số n bất kỳ được nhập vào từ bàn phím . Viết giải thuật toán tính n giai thừa”

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. uses crt;

   var n: longint;

   Function Giai_Thua(n:longint):longint;

   Var GT:Longint;

   begin

        GT:=1;

        while n > 0 do

        begin

        GT:=GT * n;

        n:=n-1;

        end;

        Giai_thua:=GT;

   end;

   begin

       clrscr;

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

       write(n,’!=’,Giai_thua(n));

       readln

   end.

   Bình luận