COBOL zOS Solution
Variables
01 ADVENT-OF-CODE. 05 AOC-COUNTER PIC 9(6). 05 AOC-CANDIDAT PIC 9(6) VALUE 0.
01 AOC REDEFINES ADVENT-OF-CODE. 05 S1 PIC 9(1). 05 S2 PIC 9(1). 05 S3 PIC 9(1). 05 S4 PIC 9(1). 05 S5 PIC 9(1). 05 S6 PIC 9(1).
Section for the problem
PERFORM UNTIL AOC-COUNTER > 732736 EVALUATE TRUE
DIGITS INCREASING OR CONSTANT ? IF S6 >= S5 AND S5 >= S4 AND S4 >= S3 AND S3 >= S2 AND S2 >= S1 ADD 1 TO AOC-CANDIDAT DISPLAY MY-SERVICE-NAME ' C : ' AOC-COUNTER END-IF WHEN OTHER CONTINUE END-EVALUATE ADD 1 TO AOC-COUNTER END-PERFORM
DISPLAY MY-SERVICE-NAME ' CANDIDAT: ' AOC-CANDIDAT
Are you sure you want to hide this comment? It will become hidden in your post, but will still be visible via the comment's permalink.
Hide child comments as well
Confirm
For further actions, you may consider blocking this person and/or reporting abuse
We're a place where coders share, stay up-to-date and grow their careers.
COBOL zOS Solution
Variables
01 ADVENT-OF-CODE.
05 AOC-COUNTER PIC 9(6).
05 AOC-CANDIDAT PIC 9(6) VALUE 0.
01 AOC REDEFINES ADVENT-OF-CODE.
05 S1 PIC 9(1).
05 S2 PIC 9(1).
05 S3 PIC 9(1).
05 S4 PIC 9(1).
05 S5 PIC 9(1).
05 S6 PIC 9(1).
Section for the problem
DIGITS INCREASING OR CONSTANT ?
IF S6 >= S5 AND
S5 >= S4 AND
S4 >= S3 AND
S3 >= S2 AND
S2 >= S1
ADD 1 TO AOC-CANDIDAT
DISPLAY MY-SERVICE-NAME ' C : ' AOC-COUNTER
END-IF
WHEN OTHER
CONTINUE
END-EVALUATE
ADD 1 TO AOC-COUNTER
END-PERFORM
DISPLAY MY-SERVICE-NAME ' CANDIDAT: ' AOC-CANDIDAT