problem 009

テキトーｗ

ソース・プログラム

    program PEuler009
      implicit none
      integer :: ia, ib, ic ! a^2 + b^2 = c^2 
      do ic = 1, 1000
        do ib = 1, ic - 1
          if (ib > ic) exit  
          ia = 1000 - ib - ic
          if (ia > ib) cycle
          if (ia <= 0) exit
          if (ia * ia + ib * ib == ic * ic) print *, ia, ib, ic, ':', ia * ib * ic
        end do
      end do
      stop
    end program PEuler009

実行結果

200 375 425 : 31875000
続行するには何かキーを押してください . . .