import Data.Char
import Text.Printf
main :: IO()
main = do
  val <- getLine
  printf "%s" $ slv val

slv :: String -> String
slv val | intVal `mod` sumVal == 0 = "Yes"
        | otherwise = "No"
  where intVal = read val :: Int
        sumVal = sum $ map digitToInt val