1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | IDENTIFICATION DIVISION. PROGRAM-ID. ADD. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 A PIC 9999. 77 B PIC 9999. 77 ANS PIC 999v99. PROCEDURE DIVISION. MAIN-PARA. DISPLAY " ----------------------------------------------- ". DISPLAY " ENTER A ". ACCEPT A. DISPLAY " ENTER B ". ACCEPT B. DISPLAY " ----------------------------------------------- ". ADD-PARA. ADD A B GIVING ANS. DISPLAY " -----------------------------------------------". DISP-PARA. DISPLAY "A IS " A. DISPLAY "B IS " B. DISPLAY "ADDITION =" ANS. STOP RUN. |
-
upload with new input
-
result: Success time: 0.01s memory: 3996 kB returned value: 0
3,4
----------------------------------------------- ENTER A ENTER B ----------------------------------------------- ----------------------------------------------- A IS 0003 B IS 0000 ADDITION =003.00
-
result: Success time: 0.01s memory: 3996 kB returned value: 0
3 4
----------------------------------------------- ENTER A ENTER B ----------------------------------------------- ----------------------------------------------- A IS 0003 B IS 0000 ADDITION =003.00
-
result: Success time: 0.01s memory: 3996 kB returned value: 0
3 4
----------------------------------------------- ENTER A ENTER B ----------------------------------------------- ----------------------------------------------- A IS 0003 B IS 0000 ADDITION =003.00
-
result: Success time: 0.01s memory: 3996 kB returned value: 0
3 4
----------------------------------------------- ENTER A ENTER B ----------------------------------------------- ----------------------------------------------- A IS 0003 B IS 0000 ADDITION =003.00
-
result: Success time: 0.01s memory: 3996 kB returned value: 0
----------------------------------------------- ENTER A ENTER B ----------------------------------------------- ----------------------------------------------- A IS 0000 B IS 0000 ADDITION =000.00



