Program TO_HOP;
Uses Crt;
Var n,k: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;
Function C(n,k:integer):real;
Begin
c:=gt(n)/(gt(k)*gt(n-k));
End;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH TO HOP N CHAP K:');
Writeln('--------------------------------');
Write('Nhap n = '); readln(n);
Write('Nhap k = ');readln(k);
Writeln('C(',n,',',k,') = ',c(n,k):6:0);
Readln;
End.
Ý kiến bạn đọc
Những tin cũ hơn