fork(4) download
copy 
  1.        *                     DESCRIPCION DEL PROGRAMA                 *
  2.        *--------------------------------------------------------------*
  3.        * COBOL-PRIMOS: PROGRAMA QUE GENERA LOS NUMEROS PRIMOS QUE     *
  4.        * EXISTEN ENTRE 1 Y 100.                                       *
  5.        *--------------------------------------------------------------*
  6.        IDENTIFICATION DIVISION.
  7.        PROGRAM-ID. PRIMOS.
  8.  
  9.        *--------------------------------------------------------------*
  10.        ENVIRONMENT DIVISION.
  11.  
  12.        *--------------------------------------------------------------*
  13.        DATA DIVISION.
  14.        WORKING-STORAGE SECTION.
  15.  
  16.        01 NUMERO     PIC 9(3) VALUE 1.
  17.        01 CONTADOR   PIC 9(3).
  18.        01 DIVISOR    PIC 9(3).
  19.        01 RESULTADO  PIC 9(3).
  20.        01 R-DIVISION PIC 9(3).
  21.  
  22.        *--------------------------------------------------------------*    
  23.  
  24.        PROCEDURE DIVISION.
  25.         PERFORM  UNTIL NUMERO>100
  26.         MOVE 1 TO CONTADOR
  27.         MOVE 0 TO DIVISOR 
  28.         PERFORM UNTIL CONTADOR>NUMERO 
  29.  
  30.        DIVIDE CONTADOR INTO NUMERO GIVING R-DIVISION REMAINDER RESULTADO
  31.  
  32.              IF RESULTADO=0 
  33.                ADD 1 TO DIVISOR
  34.              END-IF
  35.  
  36.              ADD 1 TO CONTADOR 
  37.  
  38.  
  39.  
  40.          END-PERFORM
  41.              IF DIVISOR=2 
  42.                DISPLAY NUMERO ' ES UN NUMERO PRIMO'
  43.              ELSE
  44.                DISPLAY NUMERO ' NO ES UN NUMERO PRIMO'
  45.              END-IF
  46.          ADD 1 TO NUMERO
  47.         END-PERFORM.
  48.         STOP RUN.
  49.  
  50.        *--------------------------------------------------------------*
Success #stdin #stdout 0.02s 6116KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
001 NO ES UN NUMERO PRIMO
002 ES UN NUMERO PRIMO
003 ES UN NUMERO PRIMO
004 NO ES UN NUMERO PRIMO
005 ES UN NUMERO PRIMO
006 NO ES UN NUMERO PRIMO
007 ES UN NUMERO PRIMO
008 NO ES UN NUMERO PRIMO
009 NO ES UN NUMERO PRIMO
010 NO ES UN NUMERO PRIMO
011 ES UN NUMERO PRIMO
012 NO ES UN NUMERO PRIMO
013 ES UN NUMERO PRIMO
014 NO ES UN NUMERO PRIMO
015 NO ES UN NUMERO PRIMO
016 NO ES UN NUMERO PRIMO
017 ES UN NUMERO PRIMO
018 NO ES UN NUMERO PRIMO
019 ES UN NUMERO PRIMO
020 NO ES UN NUMERO PRIMO
021 NO ES UN NUMERO PRIMO
022 NO ES UN NUMERO PRIMO
023 ES UN NUMERO PRIMO
024 NO ES UN NUMERO PRIMO
025 NO ES UN NUMERO PRIMO
026 NO ES UN NUMERO PRIMO
027 NO ES UN NUMERO PRIMO
028 NO ES UN NUMERO PRIMO
029 ES UN NUMERO PRIMO
030 NO ES UN NUMERO PRIMO
031 ES UN NUMERO PRIMO
032 NO ES UN NUMERO PRIMO
033 NO ES UN NUMERO PRIMO
034 NO ES UN NUMERO PRIMO
035 NO ES UN NUMERO PRIMO
036 NO ES UN NUMERO PRIMO
037 ES UN NUMERO PRIMO
038 NO ES UN NUMERO PRIMO
039 NO ES UN NUMERO PRIMO
040 NO ES UN NUMERO PRIMO
041 ES UN NUMERO PRIMO
042 NO ES UN NUMERO PRIMO
043 ES UN NUMERO PRIMO
044 NO ES UN NUMERO PRIMO
045 NO ES UN NUMERO PRIMO
046 NO ES UN NUMERO PRIMO
047 ES UN NUMERO PRIMO
048 NO ES UN NUMERO PRIMO
049 NO ES UN NUMERO PRIMO
050 NO ES UN NUMERO PRIMO
051 NO ES UN NUMERO PRIMO
052 NO ES UN NUMERO PRIMO
053 ES UN NUMERO PRIMO
054 NO ES UN NUMERO PRIMO
055 NO ES UN NUMERO PRIMO
056 NO ES UN NUMERO PRIMO
057 NO ES UN NUMERO PRIMO
058 NO ES UN NUMERO PRIMO
059 ES UN NUMERO PRIMO
060 NO ES UN NUMERO PRIMO
061 ES UN NUMERO PRIMO
062 NO ES UN NUMERO PRIMO
063 NO ES UN NUMERO PRIMO
064 NO ES UN NUMERO PRIMO
065 NO ES UN NUMERO PRIMO
066 NO ES UN NUMERO PRIMO
067 ES UN NUMERO PRIMO
068 NO ES UN NUMERO PRIMO
069 NO ES UN NUMERO PRIMO
070 NO ES UN NUMERO PRIMO
071 ES UN NUMERO PRIMO
072 NO ES UN NUMERO PRIMO
073 ES UN NUMERO PRIMO
074 NO ES UN NUMERO PRIMO
075 NO ES UN NUMERO PRIMO
076 NO ES UN NUMERO PRIMO
077 NO ES UN NUMERO PRIMO
078 NO ES UN NUMERO PRIMO
079 ES UN NUMERO PRIMO
080 NO ES UN NUMERO PRIMO
081 NO ES UN NUMERO PRIMO
082 NO ES UN NUMERO PRIMO
083 ES UN NUMERO PRIMO
084 NO ES UN NUMERO PRIMO
085 NO ES UN NUMERO PRIMO
086 NO ES UN NUMERO PRIMO
087 NO ES UN NUMERO PRIMO
088 NO ES UN NUMERO PRIMO
089 ES UN NUMERO PRIMO
090 NO ES UN NUMERO PRIMO
091 NO ES UN NUMERO PRIMO
092 NO ES UN NUMERO PRIMO
093 NO ES UN NUMERO PRIMO
094 NO ES UN NUMERO PRIMO
095 NO ES UN NUMERO PRIMO
096 NO ES UN NUMERO PRIMO
097 ES UN NUMERO PRIMO
098 NO ES UN NUMERO PRIMO
099 NO ES UN NUMERO PRIMO
100 NO ES UN NUMERO PRIMO
https://ideone.com/JSZjjc
language:
Cobol (gnucobol 2.2.0)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!