examjs

来自「目前,国内运用COBOL语言的公司很少,导致目前国内懂cobol的程序员甚少.我」· 代码 · 共 18 行

       IDENTIFICATION DIVISION.
       PROGRAM-ID.        EXAM.
       AUTHOR.            SANDOBLUE.
       DATE-WRITTEN.      14-MAR-2007.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77  N        PIC        99
       PROCEDURE DIVISION.
       PROGRAM-BEGIN.
           ACCEPT      N.
           ADD         3    TO      N.
           DIVIDE      5    INTO    N.
           SUBTRACT    2    FROM    N.
           MULTIPLY    8    BY      N.
           DISPLAY     N.
           STOP RUN.