module Main where

import Control.Applicative
import Control.Monad
import Data.List

f x | q == 0    = r
    | otherwise = r + f q
  where
    (q, r) = x `divMod` 10

h x | (_, 0) <- x `divMod` f x = True
    | otherwise                = False

main :: IO ()
main = do
    n <- readLn :: IO Int
    if h n
        then putStrLn "Yes"
        else putStrLn "No"