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