uses crt; var n:longint; function gt(a:longint):longint; var i:longint; begin gt:=1; for i:=1 to a do gt:=gt*i; end; begin clrscr; write('n=');readln(n); writeln(gt(n)); readln end.
Câu 2:
uses crt; var n,k:longint; function gt(a:longint):longint; var i:longint; begin gt:=1; for i:=1 to a do gt:=gt*i; end; begin clrscr; write('n,k=');readln(n,k); writeln('a, ',gt(n)/gt(n-k)); writeln('b, ',gt(n)/(gt(k)*gt(n-k))); readln end.
