import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  n <- (read::String -> Int) <$> getLine
  let digitSum = sumDigit n
  putStrLn $ if n `mod` digitSum == 0 then "Yes" else "No"

sumDigit::Int -> Int
sumDigit n
  | n == 0 = 0
  | otherwise = n `mod` 10 + sumDigit (n `div` 10)