洛谷 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.