ans0602.f90

来自「fortran95程序设计源程序（彭国伦）第六章」· F90 代码 · 共 11 行

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