记录编号 147995 评测结果 AAWWAAAAAA
题目名称 增强的加法问题 最终得分 80
用户昵称 GravatarChangeMC 是否通过 未通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2015-02-06 09:23:14 内存使用 0.17 MiB
显示代码纯文本
var
 a,b,c:string;
 i,j:integer;
begin
 assign(input,'add.in');
 reset(input);
 assign(output,'add.out');
 rewrite(output);
 readln(a);
 readln(b);
 if length(b)>length(a)then begin c:=b;b:=a;a:=c;c:='';end;
 j:=length(b);
 i:=length(a);
 while j<>0do
  begin
   a[i]:=chr(ord(a[i])+ord(b[j])-48);
   if ord(a[i])-48>9then begin a[i]:=chr(ord(a[i])-ord(9)-1);a[i-1]:=chr(ord(a[i-1])+1);end;
   dec(i);
   dec(j);
  end;
 writeln(a);
 close(input);
 close(output);
end.