#Mathematica, 52 bytes NumberDecompose[#,{100,50,20,10,5,2,1,.25,.1,.05,.01}]& input >[44.75] output >{0, 0, 2, 0, 0, 2, 0, 3, 0, 0, 0.}