高精度加法P1601

题目背景

无

题目描述

高精度加法,x相当于a+b problem，[b][color=red]不用考虑负数[/color][/b]

输入输出格式

输入格式：

分两行输入a,b<=10^500

输出格式：

输出只有一行，代表A+B的值

输入输出样例

输入样例#1：

1
1

输出样例#1：

2

var
 s:string;
 x,y:array[0..101]of integer;
 i,j,l1,l2:integer;
begin
 readln(s);
 l1:=length(s);
 for i:=l1 downto 1 do
  x[l1-i]:=ord(s[i])-48;//换成数字
 readln(s);
 l2:=length(s);
 for i:=l2 downto 1 do
  y[l2-i]:=ord(s[i])-48;//换成数字
 if l1<l2 then l1:=l2;//取长的部分，保证最高位也可以加
 for i:=0  to  l1  do
  begin
   x[i]:=x[i]+y[i];
   x[i+1]:=x[i+1]+x[i] div 10;//往前加，十进一
   x[i]:=x[i] mod 10;
  end;
   j:=101;
   while x[j]=0 do dec(j);
   for i:=j downto 0 do write(x[i]);//确保最高位没有0
end.