24 lines
594 B
ObjectPascal
24 lines
594 B
ObjectPascal
program countTheCoins;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
var
|
|
count, quarter, dime, nickel, penny: integer;
|
|
|
|
begin
|
|
count := 0;
|
|
|
|
for penny := 0 to 100 do
|
|
for nickel := 0 to 20 do
|
|
for dime := 0 to 10 do
|
|
for quarter := 0 to 4 do
|
|
if (penny + 5 * nickel + 10 * dime + 25 * quarter = 100) then
|
|
begin
|
|
writeln(penny, ' pennies ', nickel, ' nickels ', dime, ' dimes ', quarter, ' quarters');
|
|
count := count + 1;
|
|
end;
|
|
|
|
|
|
writeln('The number of ways to make change for a dollar is: ', count); // 242 ways to make change for a dollar
|
|
|
|
end.
|