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