main :: IO()
main = do
    n <- readLn
    putStrLn $ if mod n (sums n) == 0 then "Yes" else "No"
    
sums :: Int -> Int
sums num
    | num < 10      = num
    | otherwise     = (mod num 10) + (div num 10)