Bài 3: Tính n! (dùng chương trình con) Ai giỏi tin giúp với

0 bình luận về “Bài 3: Tính n! (dùng chương trình con) Ai giỏi tin giúp với”

1. chúc bn học tốt

   

   Bình luận

2. Program Tinh_Giai_Thua;

   Uses Crt;

   Var n: integer;

   Function  gt(n:integer):longint;

   Var kq,i:integer;

   Begin

      kq:=1;

         For i:=1 to n do

           kq:=kq*i;

         gt:=kq;

    End;

   Begin

      Clrscr;

     Writeln(‘TINH N! : ‘);

     Write(‘Nhapn=’); readln(n);

     Writeln(n,’!=’,gt(n));

   Readln

   End.

   Bình luận