RosettaCodeData/Task/McNuggets-problem/XPL0/mcnuggets-problem.xpl0
2023-07-01 13:44:08 -04:00

14 lines
329 B
Text

int N, A(101), X, Y, Z;
[for N:= 0 to 100 do A(N):= false;
for X:= 0 to 100/6 do
for Y:= 0 to 100/9 do
for Z:= 0 to 100/20 do
[N:= 6*X + 9*Y + 20*Z;
if N <= 100 then A(N):= true;
];
for N:= 100 downto 0 do
if A(N) = false then
[IntOut(0, N);
exit;
];
]