|
Задача 81.
Составить программу, подсчитывающую число сочетаний без повторения из N элементов по К элементов.
{Число сочетаний без повторения считается по формуле: Cnk=n!/k!(n-k)!
Обозначим:
n, k- переменные для хранения введенных чисел;
С - переменная для хранения результата. Чтобы подсчитать количество сочетаний без повторения, необходимо вычислить n!, (n-к)!, к!}
uses crt;
var n,k:integer;
al,a2,a3,c:longint;
function factorial (n: integer) longint;
var i: integer;
rez:longint;
begin
rez:=1;
for i:=1 to n do
rez:=rez*i;
factorial: =rez;
end;
begin
clrscr;
writeln('введите n>=k ');
readln(n,k);
a1: =factorial (n);
a2:=factorial (k);
a3 :=factorial (n-k);
c:=a1 div (a2*a3);
writeln('c=',c, ' ' , al, ' ',a2, ' ',a3);
readln;
end.
|
