program long;
var i,j,l,m,jinwei,benwei:integer;s:string;a,b:array [1..30] of integer;
c:array [1..61] of integer;
begin
for i:=1 to 30 do begin a[i]:=0;b[i]:=0;end;
for i:=1 to 61 do begin c[i]:=0;end;
readln(s);l:=length(s);i:=0;
if l>30 then begin writeln('Too long!');exit;end;
for j:=l downto 1 do begin
i:=i+1;
a[i]:=ord(s[j])-ord('0');
end;
readln(s);l:=length(s);i:=0;
if l>30 then begin writeln('Too long!');exit;end;
for j:=l downto 1 do begin
i:=i+1;
b[i]:=ord(s[j])-ord('0');
end;
for i:=1 to 30 do begin
if a[i]<b[i] then begin
a[i+1]:=a[i+1]-1;
c[i]:=a[i]+10-b[i];
end
else c[i]:=a[i]-b[i];
end;
{*******Cheng Fa*******
for i:=1 to 30 do
for j:=1 to 30 do
begin
m:=a[i]*b[j];
jinwei:=m div 10;benwei:=m mod 10;
c[i+j-1]:=benwei+c[i+j-1];
c[i+j]:=jinwei+c[i+j];
end;
for i:=1 to 60 do begin c[i+1]:=c[i+1]+c[i] div 10;c[i]:=c[i] mod 10;end;
}
{ *******Jia Fa*******
for i:=1 to 30 do begin
j:=a[i]+b[i]+c[i];
if j>9 then begin
c[i+1]:=1;c[i]:=j-10;
end
else begin
c[i]:=j;
end;
end;
}
writeln('a+b=c:');
{ write('a=');for i:=30 downto 1 do write(a[i]);writeln;
write('b=');for i:=30 downto 1 do write(b[i]);writeln;
} write('c=');for i:=61 downto 1 do write(c[i]);writeln;
end.
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
