24 lines
374 B
Plaintext
24 lines
374 B
Plaintext
PROGRAM "McNuggets problem"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
DIM N[100]
|
|
|
|
FOR A = 0 TO 100/6
|
|
FOR B = 0 TO 100/9
|
|
FOR C = 0 TO 100/20
|
|
K = A*6+B*9+C*20
|
|
IF K <= 100 THEN N[K] = 1
|
|
NEXT C
|
|
NEXT B
|
|
NEXT A
|
|
|
|
FOR K = 100 TO 1 STEP -1
|
|
IF N[K] <> 1 THEN PRINT "Maximum non-McNuggets number is: "; K : EXIT FOR
|
|
NEXT K
|
|
|
|
END FUNCTION
|
|
END PROGRAM
|