fork download 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. ChangeMaker.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7. 	WORKING-STORAGE SECTION.
  8. 	01 change pic 9(4) value zeros.
  9.         01 quarters pic 9 value zeros.
  10.         01 dimes pic 9 value zeros.
  11.         01 nickels pic 9 value zeros. 
  12.         01 pennies pic 9 value zeros. 
  13.  
  14. 	PROCEDURE DIVISION.
  15. 		ACCEPT change.
  16.                 divide 25 into change giving quarters.
  17.                 display quarters.
  18. 		STOP RUN.
  19.  
Success #stdin #stdout 0s 3996KB
comments (?)
stdin 
42
stdout 
1
https://ideone.com/MyUHL
language:
COBOL 85 (tinycobol-0.65.9)
created:
15 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!