fork download 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. EUCLID.
  3.  
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        77 A         PIC 9(5).
  7.        77 B         PIC 9(5).
  8.        77 TEMP      PIC 9(5).
  9.        77 MODVALUE  PIC 9(5).
  10.  
  11.        PROCEDURE DIVISION.
  12.        DISPLAY "1つ目の数を入力してください："
  13.        ACCEPT A
  14.        DISPLAY "2つ目の数を入力してください："
  15.        ACCEPT B
  16.  
  17.        PERFORM UNTIL B = 0
  18.            MOVE B TO TEMP
  19.            COMPUTE MODVALUE = FUNCTION MOD(A, B)
  20.            MOVE MODVALUE TO B
  21.            MOVE TEMP TO A
  22.        END-PERFORM
  23.  
  24.        DISPLAY "最大公約数は：" A
  25.  
  26.        STOP RUN.
  27.  
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin 
71 15
stdout 
1つ目の数を入力してください：
2つ目の数を入力してください：
最大公約数は：07115
https://ideone.com/eewXUf
language:
Cobol (gnucobol 2.2.0)
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!