program noi_004; var

program noi_004;

var　 i, j, j1, j2, p, q : integer;

p1 : boolean;

b,c : array[1..100] of integer;

Begin

readln(q,p); j:=1; p1:=true; b[j]:=q; j1:=0;

while (q>0) and p1 do

begin

j1:=j1 1; c[j1]:=q*10 div p; q:=q*10-c[j1]*p;

if q>0 then begin

j2:=1;

while (b[j2]<>q) and (j2<=j) do j2:=j2 1;

if b[j2]=q then

begin

p1:=false; write('0.');

for i:=1 to j2-1 do write(c[i]:1);

write('{');

for i:=j2 to j1 do write(c[i]:1);

writeln('}')

end

else begin j:=j 1; b[j]:=q end

end

end;

if q=0 then begin

write('0.');

for i:=1 to j1 do write(c[i]:1);

writeln

end; readln

End.

输入　　①　1 8　　　　输出

输入　 ②　2 7　　　　输出