设计程序设s1x2x3x4x....xn求S不大于400000时最大的N[解决办法]set talk offa1s1do while s 400000a
设计程序
设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)