10 lines
197 B
Text
10 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
|