Count the coins: Difference between revisions

m
(Added alternate method that keeps track of the specific combinations of coins)
Line 171:
if (penny + 5 * nickel + 10 * dime + 25 * quarter = 100)
then
Put_Line(Integer'Image(count+1) & ": " &
Integer'Image(penny) & " pennies, " &
Integer'Image(nickel) & " nickels, " &
62

edits