McNuggets problem: Difference between revisions
Add Modula-2
Not a robot (talk | contribs) (Add COBOL) |
Not a robot (talk | contribs) (Add Modula-2) |
||
Line 1,070:
{{out}}
<pre>43</pre>
=={{header|Modula-2}}==
<lang modula2>MODULE McNuggets;
FROM InOut IMPORT WriteCard, WriteString, WriteLn;
CONST Max = 100;
VAR a, b, c: CARDINAL;
nugget: ARRAY [0..Max] OF BOOLEAN;
BEGIN
FOR a := 0 TO Max DO
nugget[a] := FALSE;
END;
FOR a := 0 TO Max BY 6 DO
FOR b := a TO Max BY 9 DO
FOR c := b TO Max BY 20 DO
nugget[c] := TRUE;
END;
END;
END;
a := 100;
REPEAT DEC(a); UNTIL NOT nugget[a];
WriteString("Maximum non-McNuggets number: ");
WriteCard(a, 2);
WriteLn();
END McNuggets.</lang>
{{out}}
<pre>Maximum non-McNuggets number: 43</pre>
=={{header|MiniZinc}}==
| |||