Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
IDENTIFICATION DIVISION.
PROGRAM-ID. FactorialProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 N PIC 9(2) VALUE 5.
01 FACT PIC 9(5) VALUE 1.
01 COUNTER PIC 9(2) VALUE 1.
PROCEDURE DIVISION.
PERFORM VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > N
MULTIPLY FACT BY COUNTER GIVING FACT
END-PERFORM
DISPLAY 'Factorial: ' FACT
STOP RUN.Coding works best on desktop or with an external keyboard.