首页 > 试题广场 >

var t, m, n: longint; functi

[填空题] 
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.

输入：7 3
输出：1
查看答案及解析
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

普及 Pascal 完善程序-Pascal 数学
上传者：牛客309901号
难度：
0条回答 1177浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号