import Data.List
main = do
  x <- readLn :: IO Int
  print $ f 100 0 x

f :: Int->Int->Int->Int
f n counter target = if n >=target
  then counter
  else f (n+floor (0.01*fromIntegral n)) (counter+1) target