main :: IO ()
main = do
    [a, b] <- input_ints
    let ans = solve (a, b)
    putStrLn ans

input_ints :: IO [Int]
input_ints = return . map read . words =<< getLine

solve :: (Int, Int) -> String
solve (a, b) = if m == 0 then show d else "NO"
    where
        (d, m) = divMod b a