fork download
copy 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. IDEONE.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7. 	WORKING-STORAGE SECTION.
  8. 	77  n PIC 9(5)v99.
  9.  
  10. 	PROCEDURE DIVISION.
  11. 		ACCEPT n from sysin
  12. 		PERFORM UNTIL n = 2
  13. 			DISPLAY n
  14. 			ACCEPT n
  15. 		END-PERFORM.
  16. 		STOP RUN.
  17.  
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin
copy 
11,100.99
2
stdout
copy 
11100.00
https://ideone.com/aCKXn8
language:
Cobol (gnucobol 2.2.0)
created:
1 year 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!