import Control.Monad

-- data YesNo = Yes | No deriving(Show)

solver :: String -> String
solver xs =
    let y = (read :: String -> Int) xs
        z = foldr (+) 0 (map (read . return) xs :: [Int])
    in if (y `mod` z) == 0 then "Yes" else "No"

main :: IO()
main = do
    line <- getLine
    putStrLn $ solver line
