Question

Решить следующую задачу, используя рекурсивную подпрограмму
Очень надо, помогите пожалуйста

Answer 1

Function C(m,n:integer):integer;
begin
if (m=0)or(n=m) then C:=1
else C:=C(m,n-1)+C(m-1,n-1);
end;
var a,b:integer;
begin
readln(a,b);
writeln('C(',b,',',a,') = ',C(a,b));
end.

Пример:
5 10
C(10,5) = 252