Count the coins: Difference between revisions

=={{header|uBasic/4tH}}==

{{trans|Run BASIC}}

<lang>c = 0

for p = 0 to 100

for n = 0 to 20

for d = 0 to 10

for q = 0 to 4

if p + n * 5 + d * 10 + q * 25 = 100 then

print p;" pennies ";n;" nickels "; d;" dimes ";q;" quarters"

c = c + 1

endif

next q

next d

next n

next p

print c;" ways to make a buck"</lang>

{{out}}

<pre>0 pennies 0 nickels 0 dimes 4 quarters

0 pennies 0 nickels 5 dimes 2 quarters

0 pennies 0 nickels 10 dimes 0 quarters

...

90 pennies 2 nickels 0 dimes 0 quarters

95 pennies 1 nickels 0 dimes 0 quarters

100 pennies 0 nickels 0 dimes 0 quarters

242 ways to make a buck

0 OK, 0:312</pre>