language: COBOL 85 (tinycobol-0.65.9)
date: 141 days 18 hours ago
link:
visibility: public
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

     ----------------------------------------------- 
     ENTER A 
     ENTER B 
     ----------------------------------------------- 
     -----------------------------------------------
    A IS 0000
    B IS 0000
    ADDITION =000.00