ans0602.f90

fortran95程序设计源程序（彭国伦）第六章

program main
  implicit none
  integer i,sum
  sum = 0
  do i=1,99,2
    sum = sum+i
  end do
  write(*,*) sum
  stop
end program