洛谷 P1601 A+B Problem（高精）

题目背景

无

题目描述

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

输入输出格式

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

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

输入输出样例

输入样例#1：
1
1
输出样例#1：
2

高精度：
单纯的高精度！高精度！！高精度！！！

var
    a,b,c:array [1..1000] of longint;
    n,n1:ansistring;
    x,i:longint;
begin
     readln(n);
     readln(n1);
     for i:=1 to length(n) do a[i]:=ord(n[length(n)-i+1])-48;
     for i:=1 to length(n1) do b[i]:=ord(n1[length(n1)-i+1])-48;
     for i:=1 to 1000 do
         begin
             c[i]:=a[i]+b[i]+x;
             x:=c[i] div 10;
             c[i]:=c[i] mod 10;
         end;
     x:=1000;
     while (c[x]=0) and (x<>1) do dec(x);
     for i:=x downto 1 do write(c[i]);
end.