; n / 1000 で1000円札を配布可能な最大人数 a 人が求められる ; m 人いるので a / m で何枚のお札があげられるかが求まる ; こたえは 1000 * ((n / 1000) / m) 円 ; 割り算は全て小数点以下切り捨て (defun main () (let* ((n (read)) (m (read))) (princ (* (floor (floor n 1000) m) 1000)) (terpri))) (main)