program a_b;

var a,b,sum:longint;

begin

read(a,b);

sum:=a+b;

writeln(sum);

end.

program a+b(此”句“纯属废言）

var

a,b,c:longint;(这儿是一个陷阱，千万不要用integer!!!)

begin

readln(a,b);

c:=a+b;

writeln(c);

readln;(此句不加也行）（路人：我晕）

end.

终于写完我的论文了！！！

var

a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

咳咳..这道题已成为经典了...-_-#

可能就是计算和的时候,没有用longint,结果造成了让人捶胸顿足的结果..幸亏我没有踩在陷阱上..哈哈~~~

program 01 (input,output);

var

X,Y,c:longint;{注意：用长整型}

begin

read (X,Y);

c:=X+Y

writeln(c);

end.

強烈建議管理員，增加該題超長精度測試數據（可以另開個問題嘛。。問題名字還叫做“A+B Problem(Bigger)”）

希望管理員大牛們采納！！

另外補充一句。。。一樓的大牛。。。能夠用超光速。。。晚生服亦。。。xiehaojie ( 2007-12-1 5:10:28 )

program p1000(input,output);

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

好难啊～

我忘了我是怎么AC的拉

哪位大牛交我一下～

为什么是这个程序？：

var

a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

VAR a,b:integer;

begin

readln(a,b);

writeln(a+b);

end.

program ex1;

var a,b,n:longint;

begin

readln(a,b);

n:=a+b;

writeln(n);

end.

var

a,b:integer;

begin

readln(a,b);

writeln(a+b);

end.

var a,b,c:longint;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

Program Plus;

var

a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

program vijos1000;

var

a,b,c:longint;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

var

x,y:longint;

begin

read(x,y); readln;

writeln(x+y);

end.

拿去吧，保证oK！！！

没想到这么垃圾的题目的通过率只有 58%，没做出的人太垃圾了

暴寒哪

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

program ex1;

var a,b,he:integer;

begin

read(a,b);

he:=a+b;

write(he);

end.

保证对...呵呵

program zy1;

var a,b,c:integer;

begin

read(a,b);

c:=a+b;

write(c);

end.

program P1;

var a,b:integer;

begin

read(a,b);

write(a+b);

end.