洛谷 2142高精度减法

题目

高精度减法

两个数（第二个可能比第一个大）

结果（是负数要输出负号）

题解

高精度减法

代码

var  a,b,c:array[1..1000]of longint;  i,j,n:longint;  s,t,k:ansistring;procedure sub;var  i,j,k,x:longint;begin  i:=1;  while i<=length(s) do    begin      if a[i]<b[i] then        begin          a[i]:=a[i]+10;          a[i+1]:=a[i+1]-1;        end;      c[i]:=a[i]-b[i];      inc(i);    end;end;begin  readln(s);  readln(t);  if (length(s)<length(t))or((length(s)=length(t))and(s<t)) then    begin      k:=s;s:=t;t:=k;      write('-');    end;  for i:=1 to length(s) do    a[length(s)-i+1]:=ord(s[i])-ord('0');  for i:=1 to length(t) do    b[length(t)-i+1]:=ord(t[i])-ord('0');  sub;  i:=1000;  while (c[i]=0)and(i>1) do dec(i);  for j:=i downto 1 do    write(c[j]);end.