toInt :: String -> Int
toInt = read :: String -> Int

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

isHarshadNumber :: Int -> String
isHarshadNumber n
  | mod n (sumDigits n) == 0 = "Yes"
  | otherwise = "No" 

main = do
  n <- toInt <$> getLine
  putStrLn $ isHarshadNumber n
