포트란에서 값의 갯수 세주는것 질문좀드립니다

Question

포트란을 독학하고 있는 쌩초보입니다.

PROGRAM TEST

! Sum of N divided by 3 or 7

L=0
DO I=1,1000
Idiv3=I/3
Left3=I-Idiv3*3
Idiv7=I/7
Left7=I-Idiv7*7
IF(Left3==0.or.Left7==0) L=L+I
END DO
PRINT*,"Sum of N(1,1000) divided by 3 or 7=",L

END PROGRAM

이렇게 프로그램을 짜봤는데요. 1부터 1000까지 숫자들중에 3과 7로 나눠지는 숫자들만 더하게 만들어봤습니다.

근데 여기서 3과 7로 나눠지는 숫자들의 갯수까지 프린트로 나타내고 싶은데 어떻게 해야되죠 ㅠㅠ?

Answer 1

PROGRAM TEST

! Sum of N divided by 3 or 7

L=0

C=0

DO I=1,1000
Idiv3=I/3
Left3=I-Idiv3*3
Idiv7=I/7
Left7=I-Idiv7*7
IF(Left3==0.or.Left7==0) L=L+I

C=C+1
END DO
PRINT*,"Sum of N(1,1000) divided by 3 or 7=",L , C
END PROGRAM

숫자 카운트.전용 변수를 추가하시면 됩니다

저는 C로 정의하였습니다