你可能感興趣的試題

下列程序的運(yùn)行結(jié)果是（）。 
Program main 
 implicit none
 integer ::a=1
   integer ::b=2
 call add ( a )
   Call add ( b)
 Write(*,*) a , b
 Stop
  end 
Subroutine  add (sum) 
Implicit none 
integer :: sum
   sum=sum+1 
Return 
end 

下列程序的運(yùn)行結(jié)果是（）。 
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