零的数列

题意

请考虑一个由1到N（N=3, 4, 5 ... 9）的数字组成的递增数列：1 2 3 ... N。 现在请在数列中插入“+”表示加，或者“-”表示减，“ ”表示空白(例如1-2 3就等于1-23)，来将每一对数字组合在一起（请不要在第一个数字前插入符号）。 计算该表达式的结果并判断其值是否为0。

分析

这题用搜索就能做出来，思路清晰就可以了。

var n:longint; a:array[1..9]of char; procedure dfs(w,s,t,l:longint); var i:longint; begin     if w>n then     begin         if s+t*l=0 then         begin             for i:=1 to n-1 do             write(i,a[i+1]);             writeln(n);         end;         exit;     end;     a[w]:=' '; dfs(w+1,s,t*10+w,l);     a[w]:='+'; dfs(w+1,s+t*l,w,1);     a[w]:='-'; dfs(w+1,s+t*l,w,-1); end; begin     read(n);     dfs(2,0,1,1); end.