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

10 lines
140 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04: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