RosettaCodeData/Task/Pascals-triangle/GW-BASIC/pascals-triangle.basic
2023-07-01 13:44:08 -04:00

9 lines
140 B
Text

10 INPUT "Number of rows? ",R
20 FOR I=0 TO R-1
30 C=1
40 FOR K=0 TO I
50 PRINT USING "####";C;
60 C=C*(I-K)/(K+1)
70 NEXT
80 PRINT
90 NEXT