21 lines
533 B
Text
21 lines
533 B
Text
|
include "ConsoleWindow"
|
||
|
|
|
||
|
|
dim as long penny, nickel, dime, quarter , count
|
||
|
|
|
||
|
|
penny = 1 : nickel = 1
|
||
|
|
dime = 1 : quarter = 1
|
||
|
|
|
||
|
|
for penny = 0 to 100
|
||
|
|
for nickel = 0 to 20
|
||
|
|
for dime = 0 to 10
|
||
|
|
for quarter = 0 to 4
|
||
|
|
if penny + nickel * 5 + dime * 10 + quarter * 25 == 100
|
||
|
|
print penny; " pennies "; nickel;" nickels "; dime; " dimes "; quarter; " quarters"
|
||
|
|
count++
|
||
|
|
end if
|
||
|
|
next quarter
|
||
|
|
next dime
|
||
|
|
next nickel
|
||
|
|
next penny
|
||
|
|
print count;" ways to make a dollar"
|