Var a,b,c,d:array[0..100000]of integer;

wle:char;

i,j,n,m:integer;

Begin

while i=0 do Begin

j:=j+1;

read(wle);

if wle='W' Then Begin a[n]:=a[n]+1;c[m]:=c[m]+1;End;

if wle='L' Then Begin b[n]:=b[n]+1;d[m]:=d[m]+1;End;

if wle='E' Then Begin i:=1;readln;End;

if j=20 Then Begin readln;j:=0;End;

if ((a[n]>=11)or(b[n]>=11))and(abs(a[n]-b[n])>1)Then n:=n+1;

if ((c[m]>=21)or(d[m]>=21))and(abs(c[m]-d[m])>1)Then m:=m+1;

End;

For i:=0 to n do writeln(a[i],':',b[i]);

writeln;

For i:=0 to m do writeln(c[i],':',d[i]);

End.

这个程序。。AC。。

接下来

var s1,s2,s3,s4:array[0..100000]of integer;

a:char;

i,j,n,m:integer;

begin

while i=0 do begin

j:=j+1;

read(a);

if a='W' then begin s1[n]:=s1[n]+1; s2[m]:=s2[m]+1; end;

if a='L' then begin s3[n]:=s3[n]+1; s4[m]:=s4[m]+1; end;

if a='E' then begin i:=1; readln; end;

if j=20 then begin readln; j:=0; end;

if ((s1[n]>=11)or(s3[n]>=11))and(abs(s1[n]-s2[n])>1)then n:=n+1;

if ((s2[m]>=21)or(s4[m]>=21))and(abs(s2[m]-s4[m])>1)then m:=m+1;

end;

for i:=0 to n do

writeln(s1[i],':',s3[i]);

writeln;

for i:=0 to m do

writeln(s2[i],':',s4[i]);

end.

这个程序。。。。。。20分。。。

天。。。无语中。。。。。。