Imports System
Module ABC101B
	Sub Main()
		Dim n,t as Integer
		n = Integer.Parse(Console.ReadLine())
		t = n
		Dim sn as Integer = 0
		While t > 0
			sn += (t Mod 10)
			t  \= 10
		End While
		
		If n Mod sn = 0
			Console.WriteLine("Yes")
		Else
			Console.WriteLine("No")
		End If
		
	End Sub
End Module
