splitSum :: [String]-> Int -> Int
splitSum [] acc = acc
splitSum src acc = splitSum (tail src) acc'
  where
    acc' = acc + (read $ head src)

isH :: String -> String
isH s = if org `mod` sum' == 0 then
          "Yes"
        else
          "No"
  where
    org = read s
    sum' = splitSum [[c]| c<-s] 0

main = do
  n <- getLine
  putStrLn $ isH n