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

function Cmn(m, n: word): word;
begin
  if (m = 1) or (m = n) then
    Cmn := 1
  else
    Cmn := Cmn(m - 1, n - 1) + Cmn(m, n - 1)
end;

var
  m, n: word;

begin
  write('enter m n: ');
  readln(m, n);
  writeln(Cmn(m, n));
  readln

end.

Leave a Comment

5 + 3 =