谢谢 楼上的大虾``

CLS
INPUT N
FOR I = 1 TO N
PRINT TAB(N + 1 - I);
FOR J = 1 TO I: PRINT USING "#"; J; : NEXT J
FOR J = I - 1 TO 1 STEP -1: PRINT USING "#"; J; : NEXT J: PRINT
NEXT I
END