Breaking News: Grepper is joining You.com. Read the official announcement!

PRIME NUMBER COBOL

Tame Tortoise answered on December 27, 2022 Popularity 1/10 Helpfulness 1/10

answer PRIME NUMBER COBOL

PRIME NUMBER COBOL

Comment

       identification division.
       program-id. programNUM.
      *-------------------------------- 
       data division.
      *--------------------------------- 
       working-storage section.
       01  MY-NUMEBR    PIC 9(5).          
               88 IS-PREMIER VALUE  ZERO.
               
       01  CPT            PIC 9(5) value 2. 
       01  RES            PIC 9(5) VALUE ZERO. 
       01  DIV-REM        PIC 9(5) VALUE ZERO.
     
      *--------------------------------- 
       procedure division.
      *----------------------------------
           MAIN.
            PERFORM INIT
            PERFORM TRT
            PERFORM SHOW-MESSAGE
           

           STOP RUN.     

        INIT.
            MOVE  89 TO MY-NUMEBR.
           IF (MY-NUMEBR = 0 OR 1)
             SET IS-PREMIER TO TRUE 
           END-IF.           
        
        TRT.   
           PERFORM SERACH-NUMEBR-PREMIER UNTIL ( CPT > MY-NUMEBR - 1 
                        OR   IS-PREMIER).
       
       SERACH-NUMEBR-PREMIER.
           DIVIDE MY-NUMEBR BY CPT GIVING RES REMAINDER DIV-REM
           
           ADD 1 TO CPT
           IF DIV-REM = 0 THEN
           SET IS-PREMIER TO TRUE                    
           END-IF.
       SHOW-MESSAGE.
           IF IS-PREMIER
              DISPLAY " NUMBER IS NOT PREMIER"
           ELSE
              DISPLAY "NUMBER IS PERMIER"
           END-IF.

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: Grepper

Tags: cobol whatever

Link to this answer
Share Copy Link

Contributed on Dec 27 2022

Tame Tortoise

0 Answers Avg Quality 2/10

PRIME NUMBER COBOL

Contents

More Related Answers

PRIME NUMBER COBOL

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.