人性化

CLS
INPUT N, K
DIM A(N)
J = 1
DO UNTIL K < J OR J > N
 A(J) = J: K = K - J: J = J + 1
LOOP
10 L = J - 1
DO UNTIL K <= 0 OR L <= 0
 A(L) = A(L) + 1: K = K - 1: L = L - 1
LOOP
IF K > 0 THEN 10
FOR I = 1 TO N
 PRINT A(I);
NEXT I
END

[em9]