要程序么?
var a,b:array[0..5000]of integer;
h1,h2,i,t,h:longint;
c:char;
begin
read(c);
while c<>'+' do begin inc(h1); a[h1]:=ord(c)-ord('0');read(c); end;
read(c);
while c<>'=' do begin inc(h2);b[h2]:=ord(c)-ord('0');read(c);end;
for i:=1 to h1 div 2 do
t:=a[i];a[i]:=a[h1-i+1];a[h1-i+1]:=t;
for i:=1 to h2 div 2 do
t:=b[i];b[i]:=b[h2-i+1];b[h2-i+1]:=t;
if h1>h2 then h:=h1 else h:=h2;
for i:=1 to h do
a[i]:=a[i]+b[i];
for i:=1 to h+1 do
if a[i]>=10 then begin a[i+1]:=a[i]div 10;a[i]:=a[i]mod 10;end;
h:=h+2;
while (a[h]=0)and(h>0) do dec(h);
for i:=h downto 1 do write(a[i]);
writeln;
end.
大概………………就是这样吧………………没有运行,可能会出错………………如果有问题再来找我吧