import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  n <- readLn :: IO Int
  let digitsum = (sum .map digitToInt .show) n
  putStrLn $ if mod n digitsum==0 then "Yes" else "No"