37 lines
507 B
Plaintext
37 lines
507 B
Plaintext
PROC Main()
|
|
BYTE x,y,z,n
|
|
BYTE ARRAY nuggets(101)
|
|
|
|
FOR n=0 TO 100
|
|
DO
|
|
nuggets(n)=0
|
|
OD
|
|
|
|
FOR x=0 TO 100 STEP 6
|
|
DO
|
|
FOR y=0 TO 100 STEP 9
|
|
DO
|
|
FOR z=0 TO 100 STEP 20
|
|
DO
|
|
n=x+y+z
|
|
IF n<=100 THEN
|
|
nuggets(n)=1
|
|
FI
|
|
OD
|
|
OD
|
|
OD
|
|
|
|
n=100
|
|
DO
|
|
IF nuggets(n)=0 THEN
|
|
PrintF("The largest non McNugget number is %B%E",n)
|
|
EXIT
|
|
ELSEIF n=0 THEN
|
|
PrintE("There is no result")
|
|
EXIT
|
|
ELSE
|
|
n==-1
|
|
FI
|
|
OD
|
|
RETURN
|