Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/McNuggets-problem/COBOL/mcnuggets-problem.cobol
+++ b/Task/McNuggets-problem/COBOL/mcnuggets-problem.cobol
@ -1,35 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID.  MCNUGGETS.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01 NUGGETS.
-          03 NUGGET-FLAGS     PIC X OCCURS 100 TIMES.
-             88 IS-NUGGET     VALUE 'X'.
-
-       01 A                   PIC 999.
-       01 B                   PIC 999.
-       01 C                   PIC 999.
-
-       PROCEDURE DIVISION.
-       BEGIN.
-           MOVE SPACES TO NUGGETS.
-           PERFORM A-LOOP VARYING A FROM 0 BY 6
-               UNTIL A IS GREATER THAN 100.
-           MOVE 100 TO A.
-
-       FIND-LARGEST.
-           IF IS-NUGGET(A), SUBTRACT 1 FROM A, GO TO FIND-LARGEST.
-           DISPLAY 'Largest non-McNugget number: ', A.
-           STOP RUN.
-
-       A-LOOP.
-           PERFORM B-LOOP VARYING B FROM A BY 9
-               UNTIL B IS GREATER THAN 100.
-
-       B-LOOP.
-           PERFORM C-LOOP VARYING C FROM B BY 20
-               UNTIL C IS GREATER THAN 100.
-
-       C-LOOP.
-           IF C IS NOT EQUAL TO ZERO, MOVE 'X' TO NUGGET-FLAGS(C).