Определить, сколькими способами можно разложить 9 книг в 4 бандероли - Turbo Pascal

Формулировка задачи:

Ребята нужна помощь. Не знаю как запрограммировать. Напишите код, буду весьма благодарен. Задача по теории вероятности. Сколькими способами можно разложить 9 книг в 4 бандероли по 2 книги и в 1 бандероль 1 книгу (порядок бандеролей не принимается во внимание)? Решение

Решение задачи: «Определить, сколькими способами можно разложить 9 книг в 4 бандероли»

textual
                            Листинг программы 
                        

                            program pr;
 
var
 
  c: real;
 
function fact(n: integer): integer;
begin
  if n = 1 then fact := 1
  else fact := n * fact(n - 1);
end;
 
function coch(n: integer; m: integer): real;
begin
  if (n = 1) and (m = 1) then
    coch := 1
  else
    coch := (fact(n)) / (fact(m) * fact(n - m));
end;
 
begin
  c := (coch(9, 2) * coch(7, 2) * coch(5, 2) * coch(3, 2) * coch(1, 1)) / (fact(4));
  writeln(c);
end.
                        

Оцени полезность:

15 голосов , оценка 4.2 из 5

Похожие ответы