我打出来啦

CLS
DIM A(10, 2), B(10), C(10)
1 INPUT N
IF N < 2 OR N > 9 OR N <> FIX(N) THEN 1
N = N + 1
A(0, 1) = 1: A(0, 2) = 1
FOR I = 1 TO N
A(I, 1) = I: A(I, 2) = N \ I
NEXT
FOR I = 0 TO N: B(I) = 0: NEXT
J = N
WHILE B(0) = 0
K = J
WHILE B(K) = A(K, 2)
K = K - 1
WEND
B(K) = B(K) + 1
FOR L = K + 1 TO J
B(L) = 0
NEXT
S = 1
FOR I = 1 TO N
IF B(I) <> 0 THEN
FOR L = 1 TO B(I)
S = S + A(I, 1)
NEXT
END IF
NEXT
IF S = N THEN
FOR I = 1 TO N
C(I) = B(I)
NEXT
PRINT N - 1; "=";
M = 1
FOR I = 1 TO N
WHILE C(I) > 0 AND M <> N
M = M + A(I, 1)
IF M = N THEN
PRINT A(I, 1);
ELSE
PRINT A(I, 1); "+";
C(I) = C(I) - 1
END IF
WEND
NEXT
PRINT
END IF
WEND
PRINT "H="; H - 1
END

选为最佳答案！