测评机: Xeond[6]
得分: 0分
提交日期: 2012-1-18 15:13:00
有效耗时: 该状态没有记录
测试结果1: 选手程序运行超过时限
测试结果2: 输出过长|用户输出数据超过标准输出两倍[标准输出1159位|选手输出323838位]
测试结果3: 选手程序运行超过时限
测试结果4: 输出过长|用户输出数据超过标准输出两倍[标准输出2561位|选手输出321024位]
测试结果5: 输出过长|用户输出数据超过标准输出两倍[标准输出5200位|选手输出321024位]
测试结果6: 选手程序运行超过时限
测试结果7: 输出过长|用户输出数据超过标准输出两倍[标准输出16630位|选手输出316158位]
测试结果8: 输出过长|用户输出数据超过标准输出两倍[标准输出28位|选手输出316158位]
测试结果9: 选手程序运行超过时限
测试结果10: 输出过长|用户输出数据超过标准输出两倍[标准输出17位|选手输出327936位]
var
ag,bg,gs:longint;
a:char;
begin
repeat
read (a);
if a='w' then ag:=ag+1;
if a='l' then bg:=bg+1;
gs:=gs+1;
if gs mod 11=0 then
begin
writeln (ag,':',bg);
ag:=0;
bg:=0;
gs:=0;
end;
until a='e';
if (bg>0)or(ag>0) then writeln (ag,':',bg);
end.
我在FP里没问题啊
c:boolean;
s:array[1..1000000] of char;
begin
i:=1;
read(s[i]);
if s[i]='E' then begin writeln('0:0');writeln;writeln('0:0');halt;end;
while s[i]<>'E' do
begin
inc(i);read(s[i]);
end;
k:=i-1;
for i:=1 to k do
begin
if s[i]='W' then inc(a);
if s[i]='L' then inc(b);
if ((a>=11) or (b>=11)) and (abs(a-b)>1) then c:=true else c:=false;
if c or (i=k) then
begin
writeln(a,':',b);
a:=0;b:=0;
end;
if c and (i=k) then writeln('0:0');
end;
writeln;
for i:=1 to k do
begin
if s[i]='W' then inc(a);
if s[i]='L' then inc(b);
if ((a>=21) or (b>=21)) and (abs(a-b)>1) then c:=true else c:=false;
if c or (i=k) then
begin
writeln(a,':',b);
a:=0;b:=0;
end;
if c and (i=k) then writeln('0:0');
end;
end.