import Data.Char

f :: String -> Int
f s = sum $ map digitToInt s

solve :: String -> Bool
solve s = n `mod` (f s) == 0
  where n = read s

main :: IO ()
main = do
  s <- getLine
  putStrLn $ if (solve s) then "Yes" else "No"