Question

Fortran语言一道题求解，急，在线等。谢谢各位

编程计算并输出1到10之间所有偶数的阶乘之和，请编写该程序，最后运行程序。
参考代码：
Program exam
s=0.0
do 30 n=2,10,2
p=1
do 20 j=1,n
20 p=p*j
s=s+p
30 continue
write(*,*) s
end

Answer 1

program factorial
implicit none
integer::i,j,k,ans
ans=1
do i=1,10
if(mod(i,2)==0)then
ans=ans*i
end if
end do
print*,ans
end program factorial

追问

谢谢您！请问这个答案正确率如何？

追答

噗，有什么正确率啊，你笔算都能算出结果－ －。