; 求めるものは D + (D * (P / 100)) ; 式変形して D * (100 + P) / 100 (defun main () (let* ((d (read)) (p (read))) (princ (floor (* d (+ p 100)) 100)) (terpri))) (main)