import Control.Monad
import Control.Applicative
import Data.List
import Data.Array
strToInt s = (read :: String -> Int) s

main = do
    n <- getLine
    let m = read n :: Int
    let an = sum (map (strToInt . \a -> [a]) n)
    if (mod m an) == 0 then putStrLn "Yes"
                       else putStrLn "No"
                  