如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1048

来自"NOCOW"

跳转到: 导航, 搜索
VAR
  a,b:array [1..1000000] of longint;
  result:array [1..1000001] of longint;
  i,n:longint;
BEGIN
  readln(n);
    for i:=1 to n do readln(a[i],b[i]);
    for i:=n downto 1 do
      BEGIN
        inc(result[i],a[i]+b[i]);
          if result[i]>9 then
            BEGIN
              inc(result[i-1],result[i] div 10);
              result[i]:=result[i] mod 10;
            END;
      END;
    for i:=1 to n do write(result[i]);
  writeln;
END.
来自"http://www.nocow.cn/index.php/URAL/1048"
个人工具