RosettaCodeData/Task/Pascals-triangle/GW-BASIC/pascals-triangle.gw-basic

10 lines
140 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
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