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的题目

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

var i,a,b:longint;

st,st2:string;

begin

readln(a,b);

a:=a+b;

for i:=1 to 100000 do

a:=a+i;

for i:=1 to 100000 do

a:=a-i;

str(a,st);

st2:='';

for i:=1 to length(st) do

st2:=st2+st[i];

writeln(st2);

end.

用到了加法,减法,循环,转字符串,字符串相加等等等等等等等等等等等等,可见此题之难!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

我没话说啊！！！

５９％的通过率，哎！

汗！！！

59%的通过率，这个我能理解～

我一般的解题思路是先看题目再看题解然后提交，万事万灵！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

program a1

var

x,y:integer;

program a1;

var

x,y,c:integer;

begin

readln(x,y);

c:=x+y;

writeln(c);

end.

program a1;

var

x,y,c:integer;

Begin

readln(x,y);

c:=x+y;

writeln(c);

End.

program ph

val

a,b,c:integer;

begin

readln(a,b);

c:=a+b;

write('a+b=',c);

end.