【程序说明】程序功能是若输入的N值为5,则输出结果如下: 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1【程序】SET TALK OFFCLEARINPUT“N=”TO NDIME A(N,N)P=NDO WHILE N>0 A(N,N)=1 (5) N=N-1ENDDOFOR I=3 TO (6) FOR J=2 TO I-1 A(I,J)= (7) ENDFORENDFORFOR I=1 TO P ? SPACE(3*(P-I+1)) FOR J=1 TO I ?? STR(A(I,J),3) (8)?ENDFORSET TALK ON