problem 001

あんまりやる気もしないが、たまに暇つぶしに。
http://projecteuler.net/

ソース・プログラム

    program PEuler1
      implicit none
      integer, parameter :: nn = 1000 - 1
      integer :: i, num(nn)
      num = [(i, i = 1, nn)]
      print *, sum(num, mask = mod(num, 3) == 0 .or. mod(num, 5) == 0)
      stop
    end program PEuler1

実行結果

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