ac1022.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1022;
var
  d:array[0..19]of byte;
  s:string;
  n,t,l,a,b,i:integer;
procedure getstr(var s:string;e:char);
  var
    c:char;
  begin
    s:='';
    repeat
      read(c);
      if c=e then exit;
      s:=s+c;
    until false;
  end;
begin
  readln(n);
  for t:=1 to n do begin
    getstr(s,'<');l:=length(s)-1;for i:=0 to l do d[i]:=ord(s[l+1-i])-48;write(s,'<');
    getstr(s,'>');val(s,a,i);write(a,'>=');
    readln(b);

    s:='';
    repeat
      for i:=l downto 1 do begin
        inc(d[i-1],d[i] mod b*a);
        d[i]:=d[i] div b;
      end;
      s:=chr(48+d[0] mod b)+s;d[0]:=d[0] div b;
      while (l>0) and (d[l]=0) do dec(l);
    until (l=0) and (d[0]=0);
    writeln(s,'<',b,'>');
  end;
end.