uses crt;
var n,tam,t,d:int64;
function giaithua(n:int64):int64;
begin
  if n=0 then
    giaithua:=1
  else
   begin
        giaithua:=1;
        while n>1 do
          begin
               giaithua:=giaithua*n;
      dec(n);
    end;
  end;
end;
begin
 clrscr;
  readln(n);
  tam:=n;
  t:=0;
  while tam>0 do
    begin
         d:=tam mod 10;
         t:=t+giaithua(d);
         tam:=tam div 10;
  end;
  if t=n then
    writeln(1)
  else
    Writeln(0);
end.