fork download
copy 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. IDEONE.
  3. 	ENVIRONMENT DIVISION.
  4. 	DATA DIVISION.
  5. 	WORKING-STORAGE SECTION.
  6. 	77 a Pic zz9.
  7. 	77 b pic zzz9.
  8. 	77 n PIC Z9 .
  9. 	PROCEDURE DIVISION.
  10. 	Subtract 45 From 90 giving a.
  11. 	Divide 2025 by 45 giving b.
  12. 	Display "90 Minus 45 Equals. ",a.
  13. 	Display "2025 Divided By 45 Equals. ",b.
  14. 	ACCEPT n
  15. 		PERFORM UNTIL n = 42
  16. 			DISPLAY n
  17. 			ACCEPT n
  18. 		END-PERFORM.
  19. 		STOP RUN.
  20.  
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
10
43
5
42
1
stdout
copy 
90 Minus 45 Equals.  45
2025 Divided By 45 Equals.   45
10
43
 5
https://ideone.com/8XIEYs
language:
Cobol (gnucobol 2.2.0)
created:
2 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!