lập trương trình tính ckn=n!/k!(n-k)! trong đó dùng hàm tính n!. giúp mình với ạ . cảm ơn ạ

0 bình luận về “lập trương trình tính ckn=n!/k!(n-k)! trong đó dùng hàm tính n!. giúp mình với ạ . cảm ơn ạ”

1. uses crty;

   var i,n,k: integer;

   cnk: longint;

   function GT(n: integer): longint;

   var i: integer;

   begin

   GT:=1;

   for i:=1 to n do

   GT:=GT*n;

   end;

   begin

   clrscr;

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

   write (‘nhap k: ‘);  readln (k);

   ckn:=GT(n)/GT(k)*GT(n-k);

   writeln (‘Ket qua: ‘,ckn);

   readln;

   end.

   Bình luận