program dnum;
uses crt;

const a=355; b=113;  {ищем a/b}
      count=2000;    {количестово рассматриваемых цифр после запятой}

var  c :integer;     {целая часть от деления}
     m :array [0..count] of integer;  {остатки от делений}
     d :array [1..count] of shortint; {массив цифр после запятой}
     i,j,k :integer; {индексы}
     f :boolean;     {найдена ли повторяемость}

begin
  {clrscr;}
  c := a div b;
  m[0] :=a mod b;

  i:=0; j:=0;
  f:=false;
  while (i<count) and (not f) do   {находим последовательно все цифры после запятой}
  begin                            {пока не найдена последовательность}
    inc(i);
    d[i] := (m[i-1]*10) div b;     {находим очередную цифру}
    m[i] := (m[i-1]*10) mod b;     {и остаток}
    if m[i]=0 then break;          {дальше идут одни нули  искать нечего}
    j:=i;                          {сравниваем остатки от делений начиная с конца}
    while (j>0) and (not f) do
    begin
      dec(j);
      f := (m[j] = m[i]);          { совпадает!!!  }
    end;
  end;

  write(c:0,'.');                     {выводим целую часть и точку}
  if f then                           {если нашли}
  begin
    for k:=1 to j do write(d[k]:0);   {выводим то, что не повторяется}
    write('(');
    for k:=j+1 to i do write(d[k]:0); {выводим то, что повторяется}
    writeln(')');
  end
  else
  begin
    for k:=1 to i do write(d[k]:0);   {выводит все}
    writeln;
  end;

  readkey;
end.

const
  p = 10;

var
  ar: array[1 .. 2000] of integer;
  a, c, d, b: longint;

  period: string;
  i, j, k, m, n: integer;
  found: boolean;

begin
  // readln(a);readln(b);
  a := 7; b := 30;

  period := '';
  m := a; n := b; k := 1;
  while(k <= n) or (j <> m) do begin

    if k = n then j := m;
    i := p*m div n;
    m := p*m mod n;
    if k >= n then begin
      period := period + chr(ord('0') + i);
    end;
    inc(k);

  end;
  writeln(period);

  repeat
    inc(d);
    if a>b then begin
      ar[d]:=a div b; a:=a mod b;

      if period <> '0' then begin

        found := true;
        for i := 1 to length(period) do begin
          if d - i + 1 > 0 then begin
            if chr(ar[d - i + 1] + ord('0')) <> period[length(period) - i + 1] then begin
              found := false; break;
            end
          end
          else found := false;
        end;

        if found then begin
          dec(d, length(period));
          break;
        end;

      end;
    end;
    a := a * p;
  until (a = 0) or (d = 2000);

  for c := 1 to d do begin

    write(ar[c]);
    if c = 1 then write('.');

  end;
  if found then writeln('(' + period + ')');

end.