fork download
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. IDEONE.
  3. ENVIRONMENT DIVISION.
  4. DATA DIVISION.
  5. WORKING-STORAGE SECTION.
  6. 01 a Pic x(45) value "The Cobol Math Program Compute.".
  7. 77 b pic 99 value 60.
  8. 77 c pic 99 value 35.
  9. 77 d pic zz9 value zeros.
  10. 77 e pic 99 value 91.
  11. 77 f pic 99 value 13.
  12. 77 g pic zz9 value zeros.
  13. 77 n PIC Z9 .
  14. PROCEDURE DIVISION.
  15. Display a.
  16. compute d = (b - c).
  17. compute g = (e / f).
  18. Display "60 Minus 35 Equals: ",d.
  19. Display "91 Divided By 13 Equala: ",g.
  20. ACCEPT n
  21. PERFORM UNTIL n = 42
  22. DISPLAY n
  23. ACCEPT n
  24. END-PERFORM.
  25. STOP RUN.
  26.  
Success #stdin #stdout 0.01s 5288KB
stdin
10
43
5
42
1
stdout
The Cobol Math Program Compute.              
60 Minus 35 Equals:  25
91 Divided By 13 Equala:   7
10
43
 5