用递归！
PROCEDURE conc;
VAR
   i, k, l, kk: INTEGER; b, c, s, ss: STRING;
BEGIN
    s := '';
    FOR i:=1 TO 17 DO BEGIN
        IF i MOD 2 = 1 THEN BEGIN
           STR(a[(i + 1) DIV 2], ss);
           s := s + ss;
        END ELSE BEGIN
           IF sign[i DIV 2] <> '&' THEN s := s + sign[i DIV 2];
        END;
    END;
    point := 0;
    c := '';
    l := LENGTH(s);
    FOR k:=1 TO l DO BEGIN
        b := COPY(s, k, 1);
        IF (b = '+') OR (b = '-') THEN BEGIN
           point := point + 1; VAL(c, a2[point], kk); sign2[point] := b;
           c := '';
        END ELSE BEGIN
           c := c + b;
        END;
    END;
    point := point + 1; VAL(c, a2[point], kk);
    calculate;
END;
PROCEDURE find(i: INTEGER);
VAR
   j, k: INTEGER; t: STRING;
BEGIN
    FOR j:=1 TO 3 DO BEGIN
        CASE j OF
             1: t := '+';
             2: t := '-';
             3: t := '&';
        END;
        sign[i] := t;
        IF i < 8 THEN BEGIN
           find(i + 1);
        END ELSE BEGIN
           FOR k:=1 TO 9 DO a[k] := k;
           conc;
        END;
    END;
END;
BEGIN
    READLN(x);
    find(1);
END.

我怎么认为应该是回溯呢？
程序现在我没有时间编
但我认为应该是回溯

[quote]我怎么认为应该是回溯呢？
程序现在我没有时间编
但我认为应该是回溯[/quote]

回朔当然也可以，但没有递归简单。