solver::Int->String->Bool
solver n str = let x = sum (map (\x->read [x]) str) in
                (mod n x) == 0

main::IO()
main=do
  nc<-getLine
  let n= read nc::Int
  putStr (if solver n nc then "Yes\n" else "No\n")