function soucet(a : longint) : integer;
var
  b : longint;
begin
  b := 0;
  while a >= 10 do begin
    b := b + a mod 10;
    a := a div 10;
    

    


  end;
  
  b := b + a;

  soucet := b;
end;




var
  n, p : longint;

begin

readln(n);


while n <> 0 do begin






  p := 11;

  while soucet(p * n) <> soucet(n) do begin
    inc(p);


  end;

  writeln(p);


  readln(n);
end;










end.