问题描述
高精度加法(无负数)
样例输入
1
1
样例输出
2
const
maxn=100;
var
a,b:array[1..maxn] of longint;
procedure init;
var
s1,s2:string;
l1,l2,i:longint;
begin
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
readln(s1);
readln(s2);
l1:=length(s1);
l2:=length(s2);
for i:=l1 downto<