记录编号	70802	评测结果	AAAAAAAAAA
题目名称	增强的加法问题	最终得分	100
用户昵称	钨铅	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2013-10-03 09:45:39	内存使用	0.17 MiB

program jia;
var a,b:array[1..100]of integer;
    ans:array[1..200]of integer;
    i,j,l,k,t:longint;
    s:ansistring;
begin
assign(input,'add.in');
assign(output,'add.out');
reset(input);
rewrite(output);
fillchar(ans,sizeof(ans),0);
l:=0;
readln(s);
j:=length(s);
if j>l then l:=j;
k:=0;
for i:=j downto 1 do {if (s[i]>='0')and(s[i]<='9') then} begin
                                                     k:=k+1;
                                                     val(s[i],a[k],t);
                                                     end;
readln(s);
j:=length(s);
if j>l then l:=j;
k:=0;
for i:=j downto 1 do begin
                     k:=k+1;
                     val(s[i],b[k],t);
                     end;
for i:=1 to l do begin
                 ans[i]:=a[i]+b[i]+ans[i];
                 if ans[i]>9 then begin
                                  ans[i+1]:=ans[i] div 10;
                                  ans[i]:=ans[i] mod 10;
                                  end;
                 end;
if ans[l+1]>0 then l:=l+1;
for i:=l downto 1 do write(ans[i]);
close(input);
close(output);
end.