judge :: Bool -> (String,String) -> String
judge f (ts,fs) = case f of
  True -> ts
  False -> fs

sumOfDigit :: Int -> Int -> Int
sumOfDigit total 0 = total
sumOfDigit total n = sumOfDigit (total + r) q
  where
    q = n `div` 10
    r = n `mod` 10

isHarshadNum :: Int -> Bool
isHarshadNum n = n `mod` (sumOfDigit 0 n) == 0

main = do
  line <- getLine
  let
    n = read line :: Int
    ret = isHarshadNum n
  putStrLn $ judge ret ("Yes","No")
