INPUT "N="; n
Dim a(n, n)
FOR j = 1 TO n
a(j, j) = 1
a(j, 1) = 1
FOR k = 2 TO j - 1
a(j, k) = a(j - 1, k - 1) + a(j - 1, k)
NEXT k
NEXT j
FOR j = 1 TO n
FOR k = 1 TO j
PRINT TAB(5 * k); a(j, k);
NEXT k
Print
NEXT j 试一下吧!
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024