SSL 1661
洛谷 P2404 自然数的拆分问题
题目说明
任何一个大于1的自然数总可以拆分成若干个自然数之和。
例:
1:4=1+1+1+1
2:4=1+1+2
3:4=1+3
4:4=2+2
5:4=4
var
n,l,m,x:longint;
a:array[1..10000000]of longint;
procedure print;
var
i:longint;
begin
write(l,':',n,'=');
for i:=1 to n do
if a[i+1]<>0 then
begin
write(a[i],'+');
end
else break;
writeln(a[i]);
end;
procedure search(k:longint);
var
i:longint;
begin
if k=0 then begin inc(l);print;exit; end
else
for i:=1 to k do
if i>=x then
begin
inc(m);
a[m]:=i;
x:=i;
search(k-i);
x:=i-1;
a[m]:=0;
dec(m);
end;
end;
begin
readln(n);
search(n);
end.
搜索解,每搜索一次便减去n的值,值为0则打印一行。
就这样,简单粗暴!