import qualified Data.Vector as V


solve :: Integer -> Integer -> Int
solve x now = if now >= x
                 then 1
                 else (solve x $ now*101 `div` 100) + 1

main = do
    x <- readLn :: IO Integer
    print $ solve x 100 - 1

