import Data.Char

main :: IO ()
main = do
  n <- getInt
  putStrLn $ if n `mod` digitSum n == 0 then "Yes" else "No"

digitSum :: Int -> Int
digitSum = sum . map digitToInt . show

getInt :: IO Int
getInt = readLn
