fork download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. EUCLID-GCD.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.  
  6.        DATA DIVISION.
  7.        WORKING-STORAGE SECTION.
  8.        77  A          PIC 9(5).
  9.        77  B          PIC 9(5).
  10.        77  TEMP       PIC 9(5).
  11.        77  REM-VALUE  PIC 9(5).
  12.  
  13.        PROCEDURE DIVISION.
  14.        BEGIN.
  15.            DISPLAY "ユークリッドの互除法による最大公約数の計算".
  16.            DISPLAY "1つ目の整数を入力してください: "
  17.            ACCEPT A.
  18.            DISPLAY "2つ目の整数を入力してください: "
  19.            ACCEPT B.
  20.  
  21.            PERFORM UNTIL B = 0
  22.                COMPUTE REM-VALUE = FUNCTION MOD(A, B)
  23.                MOVE B TO A
  24.                MOVE REM-VALUE TO B
  25.            END-PERFORM.
  26.  
  27.            DISPLAY "最大公約数は: " A.
  28.  
  29.            STOP RUN.
  30.  
Success #stdin #stdout 0.02s 5320KB
comments (?)
stdin
copy 
20000
6042
stdout
copy 
ユークリッドの互除法による最大公約数の計算
1つ目の整数を入力してください: 
2つ目の整数を入力してください: 
最大公約数は: 00002
https://ideone.com/FQ5dXt
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!