fork download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. GCD-EUCLID.
  3.  
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        77  IN1         PIC X(10).
  7.        77  IN2         PIC X(10).
  8.        77  A           PIC 9(5) VALUE 0.
  9.        77  B           PIC 9(5) VALUE 0.
  10.        77  TEMP        PIC 9(5).
  11.  
  12.        PROCEDURE DIVISION.
  13.            ACCEPT IN1
  14.            ACCEPT IN2
  15.  
  16.            MOVE FUNCTION NUMVAL(IN1) TO A
  17.            MOVE FUNCTION NUMVAL(IN2) TO B
  18.  
  19.            PERFORM UNTIL B = 0
  20.                MOVE B TO TEMP
  21.                COMPUTE B = FUNCTION MOD(A, B)
  22.                MOVE TEMP TO A
  23.            END-PERFORM
  24.  
  25.            DISPLAY "GCD:" A
  26.  
  27.            STOP RUN.
  28.  
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
48
18
stdout
copy 
GCD:00006
https://ideone.com/bCoc9h
language:
COBOL 85 (tinycobol-0.65.9)
created:
3 days 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!