CLS
INPUT N
A = 2 * N - 1
B = 2 ^ N
FOR I = 2 TO A + 1
PRINT
PRINT 1; I;
FOR J = 2 TO B
IF J <> 1 AND J <> I THEN
PRINT J;
END IF
NEXT J, I
END
好像有点错

有点难度

CLS
INPUT N
M = 2 ^ N
DIM B(M), A(M, M)
FOR K = 1 TO M - 1
FOR I = 1 TO M: B(I) = 0: NEXT I
PRINT "第"; K; "天";
FOR I = 1 TO M
IF B(I) = 0 THEN
B(I) = 1: PRINT I;
FOR J = 1 TO M
IF B(J) = 0 AND A(I, J) = 0 THEN
PRINT "-"; J;
B(J) = 1: A(I, J) = 1: A(J, I) = 1
EXIT FOR
END IF
NEXT J
END IF
NEXT I: PRINT
NEXT K
END