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. 	Add 45 To 45 giving a.
  11. 	Multiply 45 By 45 giving b.
  12. 	Display "45 Plus 45 Equals. ",a.
  13. 	Display "45 Times 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 5276KB
comments (?)
stdin
copy 
10
43
5
42
1
stdout
copy 
45 Plus 45 Equals.  90
45 Times 45 Equals. 2025
10
43
 5
https://ideone.com/MtIfJ8
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!