12 lines
183 B
Text
12 lines
183 B
Text
10 CLS
|
|
20 INPUT "Number of rows? ", rows:GOSUB 40
|
|
30 END
|
|
40 FOR i=0 TO rows-1
|
|
50 c=1
|
|
60 FOR k=0 TO i
|
|
70 PRINT USING "####";c;
|
|
80 c=c*(i-k)/(k+1)
|
|
90 NEXT
|
|
100 PRINT
|
|
110 NEXT
|
|
120 RETURN
|