展开全部
高精度用数组做
更多追问追答
追问
不会做 唉唉唉 今天就要交了
追答
program add;
var i,j:integer; a,b,s:array[1..21]of integer; c,d:string;
begin
readln(c);
readln(d);
for i:=1 to length(c) do a[i]:=ord(c[length(c)+1-i])-48;
for i:=1 to length(d) do b[i]:=ord(d[length(d)+1-i])-48;
for i:=1 to 20 do s[i]:=a[i]+b[i];
for i:=1 to 20 do if s[i]>=10 then begin s[i]:=s[i]-10; inc(s[i+1]); end;
j:=21; while s[j]=0 do dec(j);
for i:=j downto 1 do write(s[i]);
writeln;
end.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询