import Data.Char

main :: IO ()
main = getLine >>= putStrLn . main'

main' :: String -> String
main' xs
  | (read xs `mod` f xs) == 0 = "Yes"
  | otherwise                 = "No"
  where
    f :: String -> Int
    f (x:[]) = digitToInt x
    f (x:xs) = (digitToInt x) + (f xs)