program main
implicit none
integer :: i, j, k
integer :: n, s, nn

read(*,*) n
s = 0
nn = n
do i = 9, 0, -1
   s = s + nn/(10**i)
   nn = nn- (10**i) *(nn/(10**i))
end do
if( mod(n,s) == 0 ) then
   write(*,*) 'Yes'
else
   write(*,*) 'No'
end if

end program main
