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