parseInput input = map read $ words input :: [Int]

sumDigits n | n == 0 = 0
			| otherwise = mod n 10 + sumDigits(div n 10)

solve n | n `mod` sumDigits(n) == 0 = "Yes"
		| otherwise = "No"
main = do
	input <- getLine
	let [k] = parseInput input
	putStrLn (solve k)
