填空题
下列程序的运行结果是()。
Program test
Implicit none
Integer,parameter:: limit=10
Integer counter
Integer:: ans=0
Counter=2
do while(counter<=limit)
ans=ans+counter
counter=counter+2
end do
Wrte(*,*)ans
end
【参考答案】
30
点击查看答案
相关考题
-
填空题
下列程序的运行结果是()。 Program test Implicit none Integer::i Integer::a(5)=(/ (i, i=1,5) /) Integer::b(5)=0 Where (a<3) b=a End where Write(*,”(5(i3,1x))”) b end -
填空题
下列程序的运行结果是()。 Program test Implicit none Integer::sum,i sum=0.0 do i=1,203,2 sum=sum+i end do write(*,*) i end -
填空题
下列程序的运行结果为()。 Program main Implicit none Real :: a, b, m A=2.0 B=76.0 If(a M=a A=b B=m End if Write(*,*) “a=”,a “b=”,b end
