var
n, m, i, j, k, p: integer;
a, b: array[0..100] of integer;
begin
read(n, m);
a[0] := n;
i := 0;
p := 0;
k := 0;
repeat
for j := 0 to i - 1 do
if a[i] = a[j] then
begin
p := 1;
k := j;
break;
end;
if p <> 0 then
break;
b[i] := a[i] div m;
a[i+1] := (a[i] mod m) * 10;
inc(i);
until a[i] = 0;
write(b[0], '.');
for j := 1 to k - 1 do
write(b[j]);
if p <> 0 then
write('(');
for j := k to i - 1 do
write(b[j]);
if p <> 0 then
write(')');
writeln;
end.

输入:5 13
输出：0.(384615)