> const
>   list:array[1..26] of string[1]=('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
> var
>   s,ans:string;
>   a,b,c,i,j,k,l,n,m,p:longint;
> begin
>   while true do
>     begin
>       readln(s);
>       if s='R0C0' then halt;
>       p:=pos('C',s);
>       val(copy(s,2,p-2),a,c);
>       val(copy(s,p+1,length(s)-p),b,c);
>       ans:='';
>       l:=1;
>       m:=b;
>       while m>1 do
>         begin
>           m:=m div 26;
>           l:=l*26;
>         end;
>       while b>26 do
>         begin
>           l:=l div 26;
>           if b mod 26=0 then
>                           begin
>                             ans:=ans+list[b div l-1];
>                             b:=b-(b div l-1)*l;
>                           end
>                         else
>                           begin
>                             ans:=ans+list[b div l];
>                             b:=b-(b div l)*l;
>                           end;
>         end;
>       ans:=ans+list[b];
>       writeln(ans,a);
>     end;
> end.

• me too.连大脑都会死循环。。。 (0) Lucifer 2005-09-15 21:52:05
  • 真是无敌了。。。。 (1) Lucifer 2005-09-15 21:52:18