FizzBuzz - MEMO:はてな支店COBOLの練習にFizzBuzzを書いてみた。 IDENTIFICATION DIVISION. PROGRAM-ID. FizzBuzz. DATA DIVISION. WORKING-STORAGE SECTION. 01 CNT PIC 9(03) VALUE 0. 01 MOD PIC 9(01) VALUE 0. 01 TMP PIC 9(01) VALUE 0. 01 FIZ PIC X(05) VALUE "". 01 BUZ PIC X(05) VALUE "". 01 STR PIC X(08) VALUE "". PROCEDURE DIVISION. PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT > 100 DIVIDE CNT BY 3 GIVING TMP REMAINDER MOD IF MOD = 0 THEN MOVE
