fork download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. EUCLID-GCD.
  3.  
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        77 NUM1         PIC 9(5).
  7.        77 NUM2         PIC 9(5).
  8.        77 TEMP         PIC 9(5).
  9.        77 QUOTIENT     PIC 9(5).
  10.        77 REM          PIC 9(5).       *> ← 名前を REM に変更
  11.  
  12.        PROCEDURE DIVISION.
  13.            DISPLAY "1つ目の正の整数を入力してください: "
  14.            ACCEPT NUM1
  15.            DISPLAY "2つ目の正の整数を入力してください: "
  16.            ACCEPT NUM2
  17.  
  18.            PERFORM UNTIL NUM2 = 0
  19.                DIVIDE NUM1 BY NUM2 GIVING QUOTIENT
  20.                MULTIPLY QUOTIENT BY NUM2 GIVING TEMP
  21.                SUBTRACT TEMP FROM NUM1 GIVING REM
  22.                MOVE NUM2 TO TEMP
  23.                MOVE REM TO NUM2
  24.                MOVE TEMP TO NUM1
  25.            END-PERFORM
  26.  
  27.            DISPLAY "最大公約数は: " NUM1
  28.  
  29.            STOP RUN.
  30.  
Success #stdin #stdout 0s 5296KB
comments (?)
stdin
copy 
48
16
stdout
copy 
1つ目の正の整数を入力してください: 
2つ目の正の整数を入力してください: 
最大公約数は: 00016
https://ideone.com/7O0uAd
language:
Cobol (gnucobol 2.2.0)
created:
15 hours 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!