codevs 高精度减法 3115

题目描述 Description
给出两个正整数A和B，计算A-B的值。保证A和B的位数不超过500位。


输入描述 Input Description
读入两个用空格隔开的正整数


输出描述 Output Description
输出A-B的值


样例输入 Sample Input
3 12


样例输出 Sample Output
-9


数据范围及提示 Data Size & Hint

两个正整数的位数不超过500位

代码：

var
  a,b,c:array [0..500] of longint;
  len,temp,i,j,k:longint;
  flag:boolean;
  s,s1,s2:ansistring;


begin
  readln(s);
  temp:=1;
  for i:=1 to length(s) do
    if s[i]<>' ' then
      s1:=s1+s[i]
    else
      break;
  for j:=i+1 to length(s) do
    s2:=s2+s[j];
  i:=length(s1);
  j:=length(s2);
  if i>j then
    begin
      len:=i;
      flag:=true;
    end
  else
    begin
      len:=j;
      flag:=false;
    end;
  for k:=len downto 1 do
    begin
      if i>0 then
        begin
          a[k]:=ord(s1[i])-48;
          dec(i);
        end
      else
        a[k]:=0;
      if j>0 then
        begin
          b[k]:=ord(s2[j])-48;
          dec(j);
        end
      else
        b[k]:=0;
      if flag then
        c[k]:=a[k]-b[k]
      else
        c[k]:=b[k]-a[k];
    end;
  for k:=len downto 1 do
    if c[k]<0 then
      begin
        c[k]:=c[k]+10;
        dec(c[k-1]);
      end;
  if not flag then
    write('-');
  for k:=1 to len do
    if c[k]=0 then
      inc(temp)
    else
      break;
  for k:=temp to len do
    write(c[k]);
end.