var t, m, n : longint; function g(m, n, x : longint) : longint; var i, ans : longint; begin ans := 0; if (n = 1) then exit(1); for i:=x to m div n do ans := ans + g(m - i, n - 1, i); exit(ans); end; begin read(m, n); writeln(g(m, n, 0)); end.
输入：8 4
输出：1
