15 lines
326 B
COBOL
15 lines
326 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. Loop-While.
|
|
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 I PIC 9999 VALUE 1024.
|
|
|
|
PROCEDURE DIVISION.
|
|
PERFORM UNTIL NOT 0 < I
|
|
DISPLAY I
|
|
DIVIDE 2 INTO I
|
|
END-PERFORM
|
|
|
|
GOBACK
|
|
.
|