12 lines
281 B
Text
12 lines
281 B
Text
n = 14
|
|
num = 1
|
|
last = (n^2 - n + 2) DIV 2
|
|
FOR row = 1 TO n
|
|
col = last
|
|
FOR num = num TO num + row - 1
|
|
@% = LEN(STR$(col)) + 1 : REM set column width
|
|
PRINT num ;
|
|
col += 1
|
|
NEXT
|
|
PRINT
|
|
NEXT row
|