program xr_1;

var a,b,c:real;

begin

　　read(a,b);

　　c:=a+b;

　　writeln(c);

end.

program hyf;

var a,b:longint;

begin

readln(a,b);

write(a+b);

end.

var a,b:longint;

begin

readln(a,b);

write(a+b);

end.

拆点作最小费用流

不过时间有点小微：

在Vag 6K上:

编译通过...

├ 测试数据 01：运行超时...

├ 测试数据 02：运行超时...

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

├ 测试数据 04：运行超时...

├ 测试数据 05：运行超时...

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

├ 测试数据 07：运行超时...

├ 测试数据 08：运行超时...

├ 测试数据 09：运行超时...

├ 测试数据 10：运行超时...

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

Unaccepted 有效得分：20 有效耗时：1204ms

在Puppy上：

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

这题卡时间啊。。。。。

大家碰不到puppy就别交了。。。

附上源代码：

program problem;

var

en,et,ec,eu,ep,ex:Array[0..250000] of longint;

dis:array[0..1000] of longint;

v:array[0..1000] of boolean;

i,j,k,n,m,w,cost,l:longint;

a,b,ans,left,right:longint;

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

begin

if a0)and not v[et[i]] and(dis[et[i]]+ec[i]=dis[no]) then

begin

d:=aug(et[i],min(m,eu[i]));

if d>0 then

begin

dec(eu[i],d);

inc(eu[ep[i]],d);

ex[no]:=i;

exit(d);

end;

end;

i:=en[i];

end;

ex[no]:=i;

exit(0);

end;

function modlabel:boolean;

var

d,i,j:longint;

begin

d:=maxlongint;

for i:=1 to n do

if v[i] then

begin

j:=en[i];

while j0 do

begin

if (eu[j]>0)and not v[et[j]] and(ec[j]-dis[i]+dis[et[j]]0 do

fillchar(v,sizeof(v),0);

until modlabel;

work:=cost;

end;

function solve(x,d:longint):longint;

var i,k,t,p,last,cost,lk:longint;

begin

fillchar(en,sizeof(en),0);

fillchar(dis,sizeof(dis),0);

k:=0; n:=2; t:=x; p:=0;

while x0 do

begin

k:=k+x mod 10;

x:=x div 10;

inc(p);

end;

n:=1; x:=t; l:=k+p+1; last:=1; cost:=1; lk:=0;

while x0 do

begin

k:=x mod 10;

for i:=1 to k do

begin

inc(n);

build(last,n,1,-cost);

build(n,last+k+1,1,0);

end;

cost:=cost*10;

inc(n);

if last1 then

begin

if lk

#include

void main(){

double x=0,y=0;

scanf("%d", x);

scanf("%d", y)

printf("%d", x + y);

}

program j;

var

a,b,c:integer;

begin

read (a,b);

c:=a+b;

write(c)

end.

program j;

var

a,b,c:integer;

begin

read (a,b);

c:=a+b;

write(c)

end.

#include

using namespace std;

int main()

{

int a, b;

cin >> a >> b;

cout

#include

void main(){

double x=0,y=0;

cin>>x;

cin>>y;

cout

program luciferoo;

var a,b:integer;

begin

readln(a,b);

writeln(a+b);

end.

program lx5;

var a,b:longinteger;

begin

readln(a,b);

writeln (a+b);

end.

编译通过...

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

├ 测试数据 02：答案好像正确... 999ms

├ 测试数据 03：答案似乎正确... 999ms

├ 测试数据 04：答案可能正确... 999ms

├ 测试数据 05：答案不能确定... 999ms

├ 测试数据 06：无答案... 999ms

├ 测试数据 07：运行超时... 999ms

├ 测试数据 08：答案失眠... 999ms

├ 测试数据 09：答案休息中... 999ms

├ 测试数据 10：答案不存在... 999ms

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

不能确定 有效得分：0 有效耗时：999牌感冒灵ms

program kk;

var

x,y,z:integer;

begin

readln(x,y);

z:=x+y;

write(x);

end.

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

#include

using namespace std;

void main

{

int a,b;

cin>>a>>b;

cout

#include

using namespace std;

int main()

{

int a,b;

cin>>a>>b;

cout

program kk;

var

a,b:integer;

c:integer;

begin

read(a,b);

c:=a+b.

write(c);

end.

#include

main()

{

int y;

long x,num;

scanf("%d%d",&x,&y);

num=x+y;

printf("%d",num);

}

编译通过...

├ 测试数据 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.