Задачка... Опции

[anonim]

Найти число размещений m одинаковых предметов по n различным ящикам, при условии, что ровно к фиксированных ящиков пустые. Решите плз, кому не трудно, оч нужно!!

[Shura]

Если и есть такая формула, я не вспомнил - так что рекурсия...

Код

Uses
Crt;

Var
m,n,k: Integer;

Function komb(a,b: Integer): LongInt;
var
  p: LongInt;
  i: Byte;
begin
  if b = 1
  then p:=1
  else if b < 1
       then p:=0
       else begin
         p:=0;
         for i:=0 to a
         do p:=p+komb(a-i,b-1)
        end;
  komb:=p
end; {komb}

{****************************************************************************}

Begin
ClrScr;

Write('Enter m,n,k: ');
ReadLn(m,n,k);
WriteLn;

Write('Takih kombinaciy: ', komb(m,n-k));
ReadLn
End.

Сообщение отредактировано: Shura - 30.12.2005 6:19