零的数列

题意

请考虑一个由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.