设s=1*2*3*....*n，求s不大于400000时最大的n
如何编写这个程序

楼主自己验证一下：
s=1
n=1
DO while s<4000000
    IF s<4000000
        s=s*(n+1)
        Sn=n
    ELSE
        exit
    ENDIF
    n=n+1
ENDDO
?Sn

上面的可能是手误吧,出了点问题
可以这样写
a=1
b=2
do while a<4000000
   a=a*b
   b=b+1
enddo
b=b-1
?b
b即要求的数

 

多写了一个0：
s=1
n=1
DO while s<400000
    IF s<400000
        s=s*(n+1)
        Sn=n
    ELSE
        exit
    ENDIF
    n=n+1
ENDDO
?Sn

nMult=400000
s=1
nCnt=0
do while s<=nMult
  nCnt=nCnt+1
  s=s*nCnt
enddo
?nCnt-1
return

nMult=400000
s=0
nCnt=0
do while s<=log(nMult)
  nCnt=nCnt+1
  s=s+log(nCnt)
enddo
?nCnt-1
return