设计程序
设s=1x2x3x4x....xn
求S不大于400000时最大的N

[解决办法]
set talk off
a=1
s=1
do while s <=400000
a=a+1
s=s*a
? a,s
enddo
?
? "n= ",str(a,3), " s= ",str(s,8)