21 lines
423 B
Plaintext
21 lines
423 B
Plaintext
10 LET amount=100
|
|
20 GO SUB 1000
|
|
30 STOP
|
|
1000 LET nPennies=amount
|
|
1010 LET nNickles=INT (amount/5)
|
|
1020 LET nDimes=INT (amount/10)
|
|
1030 LET nQuarters=INT (amount/25)
|
|
1040 LET count=0
|
|
1050 FOR p=0 TO nPennies
|
|
1060 FOR n=0 TO nNickles
|
|
1070 FOR d=0 TO nDimes
|
|
1080 FOR q=0 TO nQuarters
|
|
1090 LET s=p+n*5+d*10+q*25
|
|
1100 IF s=100 THEN LET count=count+1
|
|
1110 NEXT q
|
|
1120 NEXT d
|
|
1130 NEXT n
|
|
1140 NEXT p
|
|
1150 PRINT count
|
|
1160 RETURN
|