fork(1) download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. HELLO.
  3.        ENVIRONMENT DIVISION.
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        01 A PIC 9(10).
  7.        01 T PIC 9(10).
  8.        PROCEDURE DIVISION.
  9.        MAIN.
  10.            DISPLAY "好きな整数を入力してください".
  11.            ACCEPT A.
  12.            MOVE 10 TO T.
  13.            MULTIPLY A BY T GIVING A.
  14.            DISPLAY "その10倍は" A "です"
  15.            STOP RUN.
  16.  
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
123
stdout
copy 
好きな整数を入力してください
その10倍は0000001230です
https://ideone.com/UzA4np
language:
Cobol (gnucobol 2.2.0)
created:
11 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!