11 lines
197 B
Text
11 lines
197 B
Text
|
input "number of rows? ";r
|
||
|
|
for i = 0 to r - 1
|
||
|
|
c = 1
|
||
|
|
print left$(" ",(r*2)-(i*2));
|
||
|
|
for k = 0 to i
|
||
|
|
print using("####",c);
|
||
|
|
c = c*(i-k)/(k+1)
|
||
|
|
next
|
||
|
|
print
|
||
|
|
next
|