早教吧 育儿知识 作业答案 考试题库 百科 知识分享

将整数n分成k份,且每份不能为空,任意两种分法不能相同(不考虑顺序).问有几种分法freepascal非递归

题目详情
将整数n分成k份,且每份不能为空,任意两种分法不能相同(不考虑顺序).问有几种分法
freepascal 非递归
▼优质解答
答案和解析
vardeep,u,last,n,k:integer;total:longint; procedure searth(u,last,deep:integer);vari:integer;begin if (deep=k) thenbegintotal:=total+1;exit; end;for i:=last to u div 2 dosearth(u-i,i,deep+1);end;begin...