21 lines
533 B
Plaintext
21 lines
533 B
Plaintext
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"
|