How would you write a Fortran program to find the sum of the numbers from 1000 to 680,000 that are divisible by 17?

Answer 1

program sumofnumdivisibleby17

implicit none

integer :: i, j

j = 0

do i=1000,680000

if (i % 17 = 0)

j += i

end if

end do

write(*,'(A,I10)') 'Sum of the numbers from 1000 to 680000 that are divisible by 17 is:', j

end sumofnumdivisibleby17