Биномиальные коэффициенты, Определение Опции

[shyrik]

Описать функцию С(m,n), где 0=< m =< n, для вычисления биномиального коэффициента по формуле: при 0< m< n


формула:

[volvo]

shyrik
Например, так:

Код

Function C(m, n: Byte): LongInt;

 Procedure pC(m, n: Byte; Var R: Longint);
   Var R1, R2 : Longint;
   Begin
     If (m=0) or (m=n) Then R:=1
     Else
       Begin pC(m, n-1, R1); pC(m-1, n-1, R2); R:=R1+R2 End;
   End;

 Var Res: LongInt;
 Begin
   pC(m, n, Res);
   C := Res
 End;

Var
 R: LongInt;

begin
 WriteLn('C(5, 7) = ', C(5, 7))
end.