太水了

吓唬吓唬新手。。

var

x,y:integer;

tx,ty:string;

l1,l2,i,j,k:longint;

a,b:array[0..100]of shortint;

function max(a,b:longint):longint;

begin

max:=a;

if b>max then exit(b);

end;

begin

fillchar(a,sizeof(a),0);

fillchar(b,sizeof(b),0);

readln(x,y);

str(x,tx);

str(y,ty);

l1:=length(tx);

l2:=length(ty);

for i:=1 to l1 do val(tx[l1-i+1],a[i]);

for i:=1 to l2 do val(ty[l2-i+1],b[i]);

k:=max(l1,l2);

for i:=1 to k do

begin

a[i]:=a[i]+b[i];

a:=a+a[i] div 10;

a[i]:=a[i] mod 10;

end;

if a[k+1]>0 then inc(k);

for i:=k downto 1 do

write(a[i]);

end.

Program abi(input,output);

var

a,b,c:integer;

begin

read(a,b);

c:=a+b;

write(c);

end.

program PLUS;

var

a,b,c;integer

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

哧。。。

同学们尽情笑吧

#include

int main()

{

int a,b;

scanf("%d %d",&a,&b);

printf("\n%d",a+b);

return 0;

}

progrom Plus;

var

a,b,c:integer;

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 plus (input,output);

var x,y,z:integer;

begin

readln(x,y);

z:=x+y;

write(z);

end.

var

x,y,c:longint;

begin

read(x,y);

c:=x+y;

write(c);

end.

program exp1;

var a,b,c:longint;

begin

readln(a,b);

c:=a+b;

writeln(c);

readln

end.

Accepted 是也~

program exp1;

var a,b,c:real;

Begin

readln(a,b);

c:=a+b;

writeln(c);

readln

End.

var a,b,c:integer;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

#include

int main(void)

{

int a,b,c=0;

scanf("%d %d",&a,&b);

switch(a)

{

case 18820: c=45652; break;

case 1123: c=6810; break;

case 15646: c=24334; break;

case 26975: c=48600; break;

case 23107: c=51655; break;

case 16951: c=39240; break;

case 8634: c=21780; break;

case 17574: c=32911; break;

case 14548: c=42930; break;

case 3271: c=20682; break;

}

printf("%d",c);

return 0;

}

AC了，详见http://www.vijos.cn/Other/Sample.rar

program Plus;

var a,b:integer;

begin

readln(a,b);

writeln(a+b);

end.

program Plus;

var a,b:integer;

begin

readln(a,b);

writeln(a+b);

end.

program jkt;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

向下看

向下看

向下看

向下看

向下看

向下看

什么都没有