*                DESCRIPCION DEL PROGRAMA                      *
       *--------------------------------------------------------------*
       *PRIMOS-PAR-IMPAR: PROGRAMA QUE GENERA LOS NUMEROS PRIMOS,PARES*
       *Y IMPARES DE LOS 100 PRIMEROS NUMEROS.                        *
       *--------------------------------------------------------------*
       *                 LOG DE MODIFICACIONES                        *
       *--------------------------------------------------------------*
       * FECHA_MODIFICACION |  AUTOR_MODIFICACION | DESCRIPCION_MOD   *
       *                    |                     |                   *
       *                    |                     |                   *
       *                    |                     |                   *
       *--------------------------------------------------------------*
 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PRIMOS.
       *--------------------------------------------------------------*
       ENVIRONMENT DIVISION.
       *--------------------------------------------------------------*
       DATA DIVISION.
       WORKING-STORAGE SECTION.
 
         01 RESTO        PIC 9(3). 
         01 CONTADOR     PIC 9(3).
         01 DIVISOR      PIC 9(3).
         01 NUMERO       PIC 9(3) VALUE 1.
         01 RESULTADO-D  PIC 9(3).
         01 S-PRIMO      PIC 9(3).
         01 S-PAR        PIC 9(3).
         01 S-IMPAR      PIC 9(3).
       *--------------------------------------------------------------*
       PROCEDURE DIVISION.
 
         PERFORM UNTIL NUMERO>100
           MOVE 1 TO CONTADOR
           MOVE 0 TO DIVISOR
           PERFORM UNTIL CONTADOR>NUMERO
         DIVIDE CONTADOR INTO NUMERO GIVING RESULTADO-D REMAINDER RESTO
 
              IF RESTO=0 THEN
                ADD 1 TO DIVISOR
              END-IF
 
             ADD 1 TO CONTADOR
           END-PERFORM
         DIVIDE 2 INTO NUMERO GIVING RESULTADO-D REMAINDER RESTO
         IF RESTO=0 THEN
            IF DIVISOR=2 THEN
            COMPUTE S-PRIMO=S-PRIMO+NUMERO
            COMPUTE S-PAR=S-PAR+NUMERO
            DISPLAY 'EL NUMERO 'NUMERO' ES PAR Y PRIMO '
            END-IF
         END-IF
         IF RESTO=0 AND NOT DIVISOR=2 THEN 
            COMPUTE S-PAR=S-PAR+NUMERO
            DISPLAY 'EL NUMERO 'NUMERO' ES PAR '         
         END-IF
         IF  DIVISOR=2 THEN
            IF NOT RESTO=0 THEN
             COMPUTE S-IMPAR=S-IMPAR+NUMERO
             COMPUTE S-PRIMO=S-PRIMO+NUMERO
             DISPLAY 'EL NUMERO 'NUMERO' ES IMPAR Y PRIMO ' 
            END-IF
         END-IF
         IF NOT RESTO=0  AND NOT DIVISOR=2 THEN
             COMPUTE S-IMPAR=S-IMPAR+NUMERO
             DISPLAY 'EL NUMERO 'NUMERO' ES IMPAR ' 
         END-IF
 
         ADD 1 TO NUMERO
         END-PERFORM. 
         DISPLAY 'LA SUMA DE LOS PRIMOS ES ' S-PRIMO.
         DISPLAY 'LA SUMA DE LOS PARES ES ' S-PAR.
         DISPLAY 'LA SUMA DE LOS IMPARES ES ' S-IMPAR.
        STOP RUN.
       *---------------------------------------------------------------*

ICAgICAgICogICAgICAgICAgICAgICAgREVTQ1JJUENJT04gREVMIFBST0dSQU1BICAgICAgICAgICAgICAgICAgICAgICoKICAgICAgICotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSoKICAgICAgICpQUklNT1MtUEFSLUlNUEFSOiBQUk9HUkFNQSBRVUUgR0VORVJBIExPUyBOVU1FUk9TIFBSSU1PUyxQQVJFUyoKICAgICAgICpZIElNUEFSRVMgREUgTE9TIDEwMCBQUklNRVJPUyBOVU1FUk9TLiAgICAgICAgICAgICAgICAgICAgICAgICoKICAgICAgICotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSoKICAgICAgICogICAgICAgICAgICAgICAgIExPRyBERSBNT0RJRklDQUNJT05FUyAgICAgICAgICAgICAgICAgICAgICAgICoKICAgICAgICotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSoKICAgICAgICogRkVDSEFfTU9ESUZJQ0FDSU9OIHwgIEFVVE9SX01PRElGSUNBQ0lPTiB8IERFU0NSSVBDSU9OX01PRCAgICoKICAgICAgICogICAgICAgICAgICAgICAgICAgIHwgICAgICAgICAgICAgICAgICAgICB8ICAgICAgICAgICAgICAgICAgICoKICAgICAgICogICAgICAgICAgICAgICAgICAgIHwgICAgICAgICAgICAgICAgICAgICB8ICAgICAgICAgICAgICAgICAgICoKICAgICAgICogICAgICAgICAgICAgICAgICAgIHwgICAgICAgICAgICAgICAgICAgICB8ICAgICAgICAgICAgICAgICAgICoKICAgICAgICotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSoKICAgICAgIAogICAgICAgSURFTlRJRklDQVRJT04gRElWSVNJT04uCiAgICAgICBQUk9HUkFNLUlELiBQUklNT1MuCiAgICAgICAqLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0qCiAgICAgICBFTlZJUk9OTUVOVCBESVZJU0lPTi4KICAgICAgICotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSoKICAgICAgIERBVEEgRElWSVNJT04uCiAgICAgICBXT1JLSU5HLVNUT1JBR0UgU0VDVElPTi4KICAgIAogICAgICAgICAwMSBSRVNUTyAgICAgICAgUElDIDkoMykuIAogICAgICAgICAwMSBDT05UQURPUiAgICAgUElDIDkoMykuCiAgICAgICAgIDAxIERJVklTT1IgICAgICBQSUMgOSgzKS4KICAgICAgICAgMDEgTlVNRVJPICAgICAgIFBJQyA5KDMpIFZBTFVFIDEuCiAgICAgICAgIDAxIFJFU1VMVEFETy1EICBQSUMgOSgzKS4KICAgICAgICAgMDEgUy1QUklNTyAgICAgIFBJQyA5KDMpLgogICAgICAgICAwMSBTLVBBUiAgICAgICAgUElDIDkoMykuCiAgICAgICAgIDAxIFMtSU1QQVIgICAgICBQSUMgOSgzKS4KICAgICAgICotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSoKICAgICAgIFBST0NFRFVSRSBESVZJU0lPTi4KICAgIAogICAgICAgICBQRVJGT1JNIFVOVElMIE5VTUVSTz4xMDAKICAgICAgICAgICBNT1ZFIDEgVE8gQ09OVEFET1IKICAgICAgICAgICBNT1ZFIDAgVE8gRElWSVNPUgogICAgICAgICAgIFBFUkZPUk0gVU5USUwgQ09OVEFET1I+TlVNRVJPCiAgICAgICAgIERJVklERSBDT05UQURPUiBJTlRPIE5VTUVSTyBHSVZJTkcgUkVTVUxUQURPLUQgUkVNQUlOREVSIFJFU1RPCiAgICAgICAgIAogICAgICAgICAgICAgIElGIFJFU1RPPTAgVEhFTgogICAgICAgICAgICAgICAgQUREIDEgVE8gRElWSVNPUgogICAgICAgICAgICAgIEVORC1JRgogICAgICAKICAgICAgICAgICAgIEFERCAxIFRPIENPTlRBRE9SCiAgICAgICAgICAgRU5ELVBFUkZPUk0KICAgICAgICAgRElWSURFIDIgSU5UTyBOVU1FUk8gR0lWSU5HIFJFU1VMVEFETy1EIFJFTUFJTkRFUiBSRVNUTwogICAgICAgICBJRiBSRVNUTz0wIFRIRU4KICAgICAgICAgICAgSUYgRElWSVNPUj0yIFRIRU4KICAgICAgICAgICAgQ09NUFVURSBTLVBSSU1PPVMtUFJJTU8rTlVNRVJPCiAgICAgICAgICAgIENPTVBVVEUgUy1QQVI9Uy1QQVIrTlVNRVJPCiAgICAgICAgICAgIERJU1BMQVkgJ0VMIE5VTUVSTyAnTlVNRVJPJyBFUyBQQVIgWSBQUklNTyAnCiAgICAgICAgICAgIEVORC1JRgogICAgICAgICBFTkQtSUYKICAgICAgICAgSUYgUkVTVE89MCBBTkQgTk9UIERJVklTT1I9MiBUSEVOIAogICAgICAgICAgICBDT01QVVRFIFMtUEFSPVMtUEFSK05VTUVSTwogICAgICAgICAgICBESVNQTEFZICdFTCBOVU1FUk8gJ05VTUVSTycgRVMgUEFSICcgICAgICAgICAKICAgICAgICAgRU5ELUlGCiAgICAgICAgIElGICBESVZJU09SPTIgVEhFTgogICAgICAgICAgICBJRiBOT1QgUkVTVE89MCBUSEVOCiAgICAgICAgICAgICBDT01QVVRFIFMtSU1QQVI9Uy1JTVBBUitOVU1FUk8KICAgICAgICAgICAgIENPTVBVVEUgUy1QUklNTz1TLVBSSU1PK05VTUVSTwogICAgICAgICAgICAgRElTUExBWSAnRUwgTlVNRVJPICdOVU1FUk8nIEVTIElNUEFSIFkgUFJJTU8gJyAKICAgICAgICAgICAgRU5ELUlGCiAgICAgICAgIEVORC1JRgogICAgICAgICBJRiBOT1QgUkVTVE89MCAgQU5EIE5PVCBESVZJU09SPTIgVEhFTgogICAgICAgICAgICAgQ09NUFVURSBTLUlNUEFSPVMtSU1QQVIrTlVNRVJPCiAgICAgICAgICAgICBESVNQTEFZICdFTCBOVU1FUk8gJ05VTUVSTycgRVMgSU1QQVIgJyAKICAgICAgICAgRU5ELUlGCiAgICAgICAgICAKICAgICAgICAgQUREIDEgVE8gTlVNRVJPCiAgICAgICAgIEVORC1QRVJGT1JNLiAKICAgICAgICAgRElTUExBWSAnTEEgU1VNQSBERSBMT1MgUFJJTU9TIEVTICcgUy1QUklNTy4KICAgICAgICAgRElTUExBWSAnTEEgU1VNQSBERSBMT1MgUEFSRVMgRVMgJyBTLVBBUi4KICAgICAgICAgRElTUExBWSAnTEEgU1VNQSBERSBMT1MgSU1QQVJFUyBFUyAnIFMtSU1QQVIuCiAgICAgICAgU1RPUCBSVU4uCiAgICAgICAqLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tKg==