IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
02 A PIC 9(2).
02 B PIC 9(2).
02 QUO PIC 9(2)V99.
PROCEDURE DIVISION.
P1.
DISPLAY "ENTER THE TWO NUMBER".
ACCEPT A.
ACCEPT B.
COMPUTE QUO = A + B.
DISPLAY "QUOTIENT=", QUO.
STOP RUN.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
02 A PIC 9(2).
02 B PIC 9(2).
02 QUO PIC 9(2)V99.
PROCEDURE DIVISION.
P1.
DISPLAY "ENTER THE TWO NUMBER".
ACCEPT A.
ACCEPT B.
COMPUTE QUO = A + B.
DISPLAY "QUOTIENT=", QUO.
STOP RUN.
No comments:
Post a Comment