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.

设a，b两变量，读入，在writeln（a+b）。

program ex;

var

a,b,c:integer;

begin

read(a,b);

c:=a+b;

write(a,b);

end.

program plus;

var a,b:longint;

begin

readln(a,b);

wrteln(a+b);

end.

是人都知道做``

读入a,b

writeln(a+b);