problem 002

ソース・プログラム

    program PEuler2
      implicit none
      integer :: ifib0, ifib1, ifib2, isum
      ifib0 = 1
      ifib1 = 2
      isum  = ifib1
      do
        ifib2 = ifib0 + ifib1
        if (ifib2 > 4 * 10**6) exit
        if (mod(ifib2, 2) == 0) isum = isum + ifib2
        ifib0 = ifib1
        ifib1 = ifib2
      end do
      print *, isum
      stop
    end program PEuler2

実行結果

4613732
続行するには何かキーを押してください . . .