var a,b,z,i:integer;

begin
  readln(a,b);
  for i:=1 to b do
    a:=(10*a) mod b;
  if a=0 then writeln('perioda delky 0')
  else begin
    z:=a;
    i:=0;
    repeat
      a:=(10*a) mod b;
      inc(i);
    until a=z;
    writeln('perioda delky ',i);
  end;
end.