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. 		ACCEPT n
  11. 		PERFORM until 42 greater than n
  12.     compute r = 2**n
  13.     display r
  14. 			ACCEPT n
  15. 		END-PERFORM.
  16. 		STOP RUN.
  17.  
Success #stdin #stdout 0.01s 3992KB
comments (?)
stdin
copy 
10
43
5
42
1
stdout
copy 
Standard output is empty
https://ideone.com/l7JxH
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!