Код Pascal на С

uses
  SysUtils;
 
const
  base = 10;
 
type
  int = longint;
 
var
  n, k, i, len, j, z, x : int;
  s, t, ans, s1, w, m: string;
  intpart, rest: int;
  period, per: int;
  were: array[0..9] of int;
  first, zero, minim: boolean;
  a,b:array[0..10000]of string;
  ch:char;
 
begin
  reset(input, 'input.txt');
  rewrite(output, 'output.txt');
while not seekeof do begin
  read(n, k);
  s := '.';
  intpart := n div k;
  while (intpart > 0) do
  begin
    s := inttostr(intpart mod base) + s;
    intpart := intpart div base;
  end;
  if (s = '.') then
    s := '0.';
  rest := n mod k;
  i := 0;
  period := 0;
  fillchar(were, sizeof(were), 0);
  while (rest > 0) do
  begin
    inc(i);
    if (were[rest] > 0) then
    begin
      period := i - were[rest];
      break;
    end;
    were[rest] := i;
    rest := rest * base;
    s := s + inttostr(rest div k);
    rest := rest mod k;
  end;
  first := true;
  ans:=ans+inttostr(n)+'=';
  repeat
    zero := true;
    t := '';
    for i := 1 to length(s) do
    begin
      if (s[i] in ['1'..'9']) then
      begin
        t := t + inttostr(k);
        dec(s[i]);
        zero := false;
      end
      else
        t := t + s[i];
    end;
    if zero then
      break;
    if first then
      first := false
    else
      ans:=ans+'+';
    while (s[1] = '0') and (s[2] <> '.') do
      s := copy(s, 2, length(s));
    while (t[1] = '0') and (t[2] <> '.') do
      t := copy(t, 2, length(t));
    if (period > 0) then
    begin
      minim := false;
      for per := 1 to period div 2 do if (period mod per = 0) then
      begin
        minim := true;
        for i := length(t) downto length(t) - period + per + 1 do
        begin
          if (t[i] <> t[i - per]) then
          begin
            minim := false;
            break;
          end;
        end;
        if minim then
        begin
          setlength(t, length(t) - period + per);
          break;
        end;
      end;
      if not minim then
        per := period;
      while (t[length(t) - per] = t[length(t)]) do
        setlength(t, length(t) - 1);
      if (per > 1) or (t[length(t)] <> '0') then
      begin
        ans:=ans+copy(t, 1, length(t) - per)+'('+copy(t, length(t) - per + 1, length(t))+ ')';
        continue;
      end;
      setlength(t, length(t) - per);
    end;
    while (t[length(t)] = '0') do
      setlength(t, length(t) - 1);
    if (t[length(t)] = '.') then
      setlength(t, length(t) - 1);
    ans:=ans+t;
  until false;
 end;
 len:=1;
  while ans[z]<>'=' do inc(z);
   while z<>length(ans) do
    begin
     inc(z);
     if ans[z] in ['0'..'9','(',')','.'] then a[len]:=a[len]+ans[z] else inc(len);
    end;
    for i:=1 to len do
     b[i]:=a[i];
    for i:=1 to len do
     for j:=1 to length(a[i]) do
      begin
       if a[i][j]='(' then begin
        x:=j-1;delete(a[i],j,1);
         while a[i][x]<>')' do
          begin
           inc(x);
            if a[i][x]=')' then break;
            m:=m+a[i][x];
          end;
           delete(a[i],x,1);
          for x:=length(a[i]) to 6 do a[i]:=a[i]+m;
        end;
      end;
     for i:=1 to len do
      for j:=i+1 to len do
       if a[i]>a[j] then begin w:=a[i];a[i]:=a[j];a[j]:=w;w:=b[i];b[i]:=b[j];b[j]:=w;end;
       write(n,'=');
     for i:=1 to len-1 do
      write(b[i],'+');
     write(b[len]);
end.