toInt :: (String -> Int)
toInt x = read x ::Int

getInts = do
  x <- getLine
  let y = (map$toInt)$words x
  return y
    where
      toInt x = read x ::Int

getInt = do
	x <- getLine
	let y = toInt x
	return y

coopon::Int->Int
coopon y = y+(y `div` 100)

solv x y
	|x <= y = 0
	|otherwise = 1 + solv x (coopon y)


main = do
	x <- getInt
	let y = solv x 100 
	print y