搜索与回溯5.3——自然数拆分

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则打印一行。
就这样，简单粗暴！