fork download
copy 
  1. identification division.
  2. program-id. prog.
  3. environment division.
  4. data division.
  5. working-storage section.
  6.   77 n pic Z9.
  7.   77 i pic Z9.
  8.   77 r pic Z9.
  9. procedure division.
  10.   display 'Hello, World!'
  11.   accept n
  12.   move 0 to i
  13.   perform until i greater than n
  14.     compute r = 2**i
  15.     display r
  16.   end-perform.
  17. 		STOP RUN.
  18.  
Runtime error #stdin #stdout 0.02s 3996KB
comments (?)
stdin
copy 
10
43
5
42
1
stdout
copy 
Standard output is empty
https://ideone.com/8KZ9J
language:
COBOL 85 (tinycobol-0.65.9)
created:
14 years 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!