寫個AutoLisp給你 ..........

(setq money(- 100(getint"\n幾多錢??")))
(princ(strcat"\n該找五十元銅版 "(itoa(/ money 50))
"個 \n五元銅版"(itoa(/(rem money 50) 5))
"個 \n一元銅版"(itoa(rem money 5) )"個"))(princ)