332 条题解
-
0
490571118 LV 5 @ 2009-09-09 21:36:20
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar
day,i,a,b,max:integer;
begin
max:=0;
for i:=1 to 7 do
begin
readln(a,b);
if a+b>8 then
if a+b>max then begin max:=a+b; day:=i; end;
end;
writeln(day);
end.水，太水了！
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar i,n:integer;
s:boolean;
a,b:array[1..7]of integer;
begin
for i:=1 to 7 do
readln(a[i],b[i]);
for i:=1 to 7 do
a[i]:=a[i]+b[i];
s:=false;
for i:=1 to 7 do
if a[i]>8 then s:=true;
if s=false then write(0)
else
begin
n:=1;
for i:=2 to 7 do
if a[i]>a[n] then n:=i;
write(n);
end;
end. -
0
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
free pascal:
var
a,b,c,d:integer;
k:array[1..100,1..100]of integer;
begin
for a:=1 to 7 do
for b:=1 to 2 do
read(k[a,b]);
for a:=1 to 7 do
begin
if k[a,1]+k[a,2]>8 then
break
else
c:=c+1;
end;
write(a);
if c=8 then
write('0');
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms这题要是不AC你就不用学pascal 了 趁早学学VB玩玩吧
-
0
szy_1996725 LV 8 @ 2009-08-16 19:00:13
var b:boolean;
i,j,x,y:integer;
a:array[0..7,0..20] of boolean;
begin
b:=false;
fillchar(a,sizeof(a),false);
for i:=1 to 7 do
begin
readln(x,y);
a:=true;
if x+y>8 then b:=true;
end;
if not(b) then begin writeln(0); halt; end;
for j:=20 downto 1 do
for i:=1 to 7 do
if a then
begin
writeln(i);
halt;
end;
end. -
0
nnhoucheng LV 5 @ 2009-08-16 00:44:04
var
i,j,k,max,t:integer;
begin
max:=0; t:=0;
for i:=1 to 7 do
begin
readln(j,k); j:=j+k;
if j>8
then if j>max
then begin
max:=j; t:=i;
end;
end;
write(t);
end. -
0
veryguo614 LV 8 @ 2009-08-14 10:52:49
无语了，明明说是持续到第二天啊，于是
FOR I:=1 TO 7 DO
IF C+C>MAX THEN BEGIN MAX:=C+C; K:=I; END;
IF MAX0 THEN WRITELN(I)
ELSE WRITELN('0');
提交6次不过，我倒
看题解之后明白只用算当天的，语文问题，开学找语文老师恶补一下 -
0
honghaijie LV 9 @ 2009-08-07 13:47:33
题目看错都满分.........
我a+b>8就writeln;halt;
结果accepted
哎~~~~~~~~~~
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar
a,b,max,c,i:integer;
begin
max:=-maxint;
for i:=1 to 7 do
begin
read(a,b);
c:=a+b;
if c>max then begin t:=i;max:=c;end;
end;
if max>8 then write(t) else write('0');
end.水题，我的最爱
-
0
lincjulius LV 3 @ 2009-07-25 08:47:39
var s:array[1..7] of integer;
tmp1,tmp2,a,rs:integer;function max(a,b:integer):integer;
begin
if a>b then exit(a)
else exit(b);
end;begin
for a:=1 to 7 do
begin
readln(tmp1,tmp2);
s[a]:=max((tmp1+tmp2)-8,0);
end;
rs:=0;
for a:=1 to 7 do
if s[a]>rs then rs:=s[a];
if rs=0 then
begin
write(0);
halt;
end;
for a:=1 to 7 do
if s[a]=rs then
begin
write(a);
halt;
end;
end.
490571118
LV 5
@ 2009-09-09 21:36:20
