下列程序的运行结果是（）。 
Program main
   implicit none 
   integer, target :: a=1   
   integer, pointer :: p
       p=>a
       p=3
   write(*,*)a 
end

下列程序的运行结果是（）。  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 点击查看答案

下列程序的运行结果是（）。  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 点击查看答案