необходимо написать рекурсивную функцию для нахождения биномиальных коэффициентов

[Анна997]

Безымянный.JPG

[newerow1989]

function recur(m,n:integer):integer;
begin
   If (m=0) and (n>0) or (m=n) and (n>=0) then
      Result:=1 else
   If (m=0) and (n>0) then
      Result:=0 else
      Result:=recur(m-1,n-1)+recur(m,n-1);
end;

begin
   Writeln(recur(5,6));
   Readln;
end.

[Serge_Bliznykov]

newerow1989, раз Вы разобрались в задании,
расскажите мне, пожалуйста,
а если ввести m=0 и n>0
что должна выдать функция 1 или 0 (и почему) ?! o_O

[newerow1989]

Там 2 одинаковых условия:
1, если m=0, n>0
0, если m=0, n>0
Надо предъявлять претензии к автору задания...

Я думаю, что выведет 1 (по коду)

[Serge_Bliznykov]

Спасибо за ответ!

Сообщение от newerow1989

Там 2 одинаковых условия:
1, если m=0, n>0
0, если m=0, n>0
Надо предъявлять претензии к автору задания...

то, что там одинаковые условия я видел, поэтому и спросил.
Меня заинтересовало, почему Вас это не смутило.

Ладно, пусть автор разбирается, проехали.