import Control.Applicative

toInt :: String -> Int
toInt = read

solve :: Int -> Int -> Int -> Int -> Int
solve x y z acc =
  if quot x ((y + z) * acc + 1) == 1 && mod x ((y + z) * acc + 1) < y + z
  then acc
  else solve x y z (acc + 1)

main :: IO ()
main = do
  [x', y', z'] <- map toInt . words <$> getLine
  putStrLn $ show $ solve x' y' z' 1
