(defvar K) (defvar S) (setq K (parse-integer (read-line))) (setq S (parse-integer (read-line))) (format 't "~d~%" (floor (floor S (/ (- 100 K) 100) )))