program  poj2316;
var i,j,k,n,m,tot:longint;
    ss:string;
    ans:array [1..20] of int64;

begin
  //assign(input,'a.in');reset(input);
  readln(ss);
  for i:=1 to length(ss) do
    Val(ss[i],ans[i]);
  while not eof do
    begin
      readln(ss);
      for i:=1 to length(ss) do
        ans[i]:=ans[i]+ord(ss[i])-48;
    end;
  for i:=1 to length(ss) do
    write(ans[i] mod 10);
  writeln;
  //close(input);
end.

• Re:完全无法理解为何错的弱菜路过…… (480) bleach35 2012-05-07 21:09:54
  • Re:果然最后会有一些空行呀………… (24) bleach35 2012-05-07 21:10:54