var a,b:longint'

begin

read(a,b);

write(a+b);

end.

我建议把这道题用来测试评测机是否有问题！

第一道通过的题！

pogram examl;

var a,b,c:integer;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

program ch1;

var a,b:longint;

begin

write('a=');

readln(a);

write('b=');

readln(b);

writeln('a+b=',a+b);

readln

end.

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

侮辱我们的智商。。。

program asd;

var

a,b,c:longint;

begin

read(a,b);

c:=a+b;

write(c);

end.

prpgram aaaa;

var

a,b:qword;

begin

read(a,b);

a:=a+b;

write(a);

end.

program ma;

var

a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

progran PLUS;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

nove2384dk

var

a,b:longint;

s:longint;

begin

readln(a,b);

s:=a+b;

writeln(s);

end.

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

program p1000;

type num=array[0..100]of longint;

var a,b,i,j,n:longint;

function change(a:longint):num;

var x:num;

begin

fillchar(x,sizeof(x),0);

x[0]:=0;

while a0 do

begin

inc(x[0]);

x[x[0]]:=a mod 10000;

a:=a div 10000;

end;

if x[0]=0 then inc(x[0]);

change:=x;

end;

function add(a,b:num):num;

var i,j,n:longint;

c:num;

begin

fillchar(c,sizeof(c),0);

if a[0]>b[0] then c[0]:=a[0] else c[0]:=b[0];

for i:=1 to c[0] do

begin

inc(c[i],b[i]+a[i]);

c:=c[i] div 10000;

c[i]:=c[i] mod 10000;

end;

if c[c[0]+1]0 then inc(c[0]);

add:=c;

end;

procedure writeout(a:num);

var i,j:longint;

begin

write(a[a[0]]);

for i:=a[0]-1 downto 1 do

write(a[i] div 1000,a[i] mod 1000 div 100,a[i] mod 100 div 10, a[i] mod 10);

end;

begin

readln(a,b);

writeout(add(change(a),change(b)));

end.

高精度的 加法 ^_^

复制，粘贴……

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

program yu;

var

a,b:integer;

begin

read(a,b);

writeln(a+b);

end.

使用高精度

用高精度!!!!!!

或用Dp!!!!!!

LB的题目