ac1007.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1007;
var
  a,s:longint;
begin
  repeat
    read(a);
    inc(s,a);
  until seekeof;
  writeln(s);
end.