普及组 火星上的加法运算

普及组 火星上的加法运算

Time Limit:10000MS  Memory Limit:65536K
Total Submit:26 Accepted:21 
Case Time Limit:1000MS

Description

　　最近欢欢看到一本有关火星的书籍，其中她被一个加法运算所困惑，由于她的运算水平有限，她想向你求助，作为一位优秀的程序员，你当然不会拒绝。

Input

第一行先输入一个运算的进制N(2<=N<=36),接下来的两行为需要进行运算的字符，其中每个字符串的长度不超过200位.其为N进制的数。其中包括0-9及a-z(代表10-35). 

Output

在N进制下它们的和.

Sample Input

输入样例1：
20
1234567890
abcdefghij



输入样例2：
20
99999jjjjj
9999900001

Sample Output

输出样例1：
bdfi02467j


输出样例2：
iiiij00000

字母转换成数字然后高精度加法

 
 
const
  maxn=200;
var
  a,b,c:array[0..maxn] of longint;
  n:longint;

procedure init;
var
  i,len1,len2:longint;
  s1,s2:string;
begin
  readln(n);
  readln(s1);
  readln(s2);
  len1:=length(s1);
  len2:=length(s2);
  for i:=len1 downto 1 do
    if s1[i] in ['0'..'9']
      then a[maxn-len1+i]:=ord(s1[i])-48
      else a[maxn-len1+i]:=ord(s1[i])-87;
   for i:=len2 downto 1 do
    if s2[i] in ['0'..'9']
      then b[maxn-len2+i]:=ord(s2[i])-48
      else b[maxn-len2+i]:=ord(s2[i])-87;
end;

procedure add;
var
  i,g,s:longint;
begin
  g:=0;
  for i:=maxn downto 1 do
    begin
      s:=a[i]+b[i]+g;
      g:=s div n;
      c[i]:=s mod n;
    end;
end;

procedure print;
var
  i,j:longint;
begin
  j:=1;
  while (c[j]=0) and (j<maxn) do inc(j);
  for i:=j to maxn do
    if c[i] in [0..9]
      then write(c[i])
      else write(chr(c[i]+87));
end;

begin
  init;
  add;
  print;
end.