(defn input []
  (Integer/parseInt (read-line)))

(defn DigitSums [N]
  (let [Sn (->> N
             str
             (reduce #(+ %1 (Character/digit %2 10)) 0))]
    (if (zero? (rem N Sn))
      "Yes"
      "No")))

(-> (input)
  DigitSums
  println)