problem 006

ソース・プログラム

    program PEuler6
      implicit none
      integer :: i, k(100) = [(i, i = 1, 100)] 
      print *, sum(k)**2 - sum(k**2)
      !
      !print *, sum([1:100])**2 - sum([1:100]**2) ! non-standard
      stop
    end program PEuler6

実行結果

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