var n, m : integer; function fun(n, minNum, maxNum : integer) : integer; var tot, i : integer; begin if n = 0 then exit(1); tot := 0; for i:=minNum to maxNum do tot := tot + fun(n - 1, i + 1, maxNum); exit(tot); end; begin readln(n, m); writeln(fun(m, 1, n)); end.输入 : 6 3
输出 :1
