点这里查看
讨论 / 不得不说，这是我见过的除了A+B最水的题
Eveil 2013-02-08 00:30:00
点我顶贴 收藏 删除
他的数据太弱了吧

program yc;

var

a:array[0..7]of longint;

p:array[0..7]of longint;

i,j,sum:longint;

begin

a[0]:=3;

p[0]:=4;

for i:=1 to 7 do read(a[i],p[i]);

for i:=1 to 7 do

begin

if (a[i]+p[i]>8)and(a[i]+p[i]>a[i-1]+p[i-1]) then sum:=a[i]+p[i];

if (sum<8) and (sum=8) then writeln('0');

end;

for i:=1 to 7 do

if (sum=a[i]+p[i])and(sum>8) then sum:=i;

writeln(sum);

end.

我写这么多好自惭。。新手

#1 好人族3@2013-02-08 00:30:00
回复 删除
有必要么，数据范围只有那么大。

另外_大哥，你这么水的帖顶在我上面了，下次不要这么水了好不好

#2 doubi@2014-05-28 06:45:32
回复 删除

#3 577866/1111@2014-09-13 05:26:50
回复 删除
陶陶摘苹果完爆此题。
#4 844626221@2015-02-10 05:13:46
回复 删除
program acc;

var a:array[1..7] of integer;

k1,k2,max,i:integer;

begin

for i:=1 to 7 do

begin

read(k1,k2);

a[i]:=k1+k2-7;

if a[i]>1 then a[i]:=a[i]+a[i-1];

end;

for i:=1 to 7 do

if a[i]>max then max:=a[i];

for i:=1 to 7 do

if a[i]=max then

begin

write(a[i]);

break;

end

else if a[i]=0 then

begin

write('0');

break;

end;

end.

#5 y2015@2015-09-15 22:38:18
回复 删除
var a,b,max,sj,i:longint;

begin

max:=8;

sj:=0;

for i:=1 to 7 do

begin

read(a,b);

if a+b>max then begin

max:=a+b;

sj:=i;

end;

end;

write(sj);

end.

#6 沵芣茬莪裑笾卻茬莪杺里@2015-09-16 21:54:50
回复 删除
program ab;

var a,b,c:integer;

begin

read(a);

read(b);

c:=a+b;

write(c);

readln;

readln;

end.

查看更多回复
提交回复