main :: IO ()
main = interact $ show . solve . map read . words

solve :: [Int] -> Int
solve [k, s] = (100 * s) `div` (100 - k)