P48.F90

List out all prime integers < 99

!
!
!   WHAT IS THIS?
!
!
     INTEGER TRY,DIV
     PRINT *,2
L1:  DO TRY= 3,99,2
L2:     DO DIV= 3, SQRT(FLOAT(TRY)),2
          IF( MOD(TRY,DIV) == 0) THEN
            EXIT
            endif
        END DO L2
     IF( MOD(TRY,DIV) /= 0 ) PRINT *,TRY
     END DO L1
     END
     
OUTPUT:
Program entered
 2
 5
 7
 11
 13
 17
 19
 23
 29
 31
 37
 41
 43
 47
 53
 59
 61
 67
 71
 73
 79
 83
 89
 97

Come back to the previous page

Page builder: Charles Boivin

Last modified: 11/07/95