求一道FORTRAN编程题，在线等！

来源：百度知道 编辑：UC知道 时间：2024/06/01 18:49:17
设f(n)=1*2*3+4*5*6+...+(3n-2)(3n-1)(3n),求f(n)<32767时的最大的n值

program main
implicit none
integer::n=1,f=0
do
f=f+3*n*(3*n-1)*(3*n-2)
print "(4x,'f(',i1,')=',i6)",n,f
if(f>32767)exit
n=n+1
enddo
print*,"最大的n是：",n-1
end

结果是8