Data commit

Task/Count-the-coins/ZX-Spectrum-Basic/count-the-coins.basic

@@ -0,0 +1,20 @@
+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