module Main where

import System.IO
import Data.Char

main :: IO ()
main = do
  n <- getLine
  let n' = (read :: String -> Int) n
      sn = sum . map ((\x -> x - 48) . ord) $ n

  putStrLn $ case (n' `mod` sn) of
               0 -> "Yes"
               otherwise -> "No"