Count the coins: Difference between revisions
Added uBasic/4tH version
(Added uBasic/4tH version) |
|||
Line 2,080:
</pre>
=={{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>
=={{header|UNIX Shell}}==
Line 2,154 ⟶ 2,181:
<pre>242
13398445413854501</pre>
=={{header|VBScript}}==
| |||