module Main where import Control.Monad main :: IO () main = do [a, b] <- fmap read . words <$> getLine :: IO [Int] case b `divMod` a of (q, 0) -> print q _ -> putStrLn "NO"