ex0602.f90

来自「经典的fortran95编程书,知名作者彭国伦 书的配套原程序,」· F90 代码 · 共 14 行

program ex0602
implicit none
  integer, parameter :: limit=10  ! 计数器的上限
  integer counter      ! 计数器
  integer :: ans = 0   ! 拿来累加使用

  do counter=2, limit ,2
    ans = ans + counter
  end do
  write(*,*) ans

  stop
end