第一问答网»论坛 › 中问网 › 问答 › 任何一个大于1的自然数n，总可以拆分成若干个小于n的自 ...

任何一个大于1的自然数n，总可以拆分成若干个小于n的自然数之和。自然数的拆分问题用pascal解决

11 |

1 | 2012-7-31 21:42:29 | 显示全部楼层 |阅读模式

var k:array[1..100]of longint; n:longint;procedure print(x:longint);//输出var i:longint;begin if x=1 then exit;//判断是否存在n=n的情况 write(n,'='); for i:=1 to x-1 do
write(k,'+'); writeln(k[x]);end;procedure fly(x,y,num:longint);//回溯搜索var
i:longint;begin
if y=0 then begin print...