McNuggets problem: Difference between revisions
Add Comal
Not a robot (talk | contribs) (Add Comal) |
|||
Line 563:
{{out}}
<pre>Largest non-McNugget number: 043</pre>
=={{header|Comal}}==
<lang comal>0010 limit#:=100
0020 DIM nugget#(0:limit#)
0030 FOR a#:=0 TO limit# STEP 6 DO
0040 FOR b#:=a# TO limit# STEP 9 DO
0050 FOR c#:=b# TO limit# STEP 20 DO nugget#(c#):=TRUE
0060 ENDFOR b#
0070 ENDFOR a#
0080 FOR i#:=limit# TO 0 STEP -1 DO
0090 IF NOT nugget#(i#) THEN
0100 PRINT "Maximum non-McNuggets number: ",i#
0110 END
0120 ENDIF
0130 ENDFOR i#</lang>
{{out}}
<pre>Maximum non-McNuggets number: 43</pre>
=={{header|Cowgol}}==
| |||