高精度加法P1601

题目背景

无

题目描述

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

输入输出格式

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

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

输入输出样例

11输出样例#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]);//确保最高位没有0end.