得分： 90分
提交日期： 2008-4-10 16:39:00
有效耗时： 92毫秒
测试结果1: 输出过少|用户输出数据少于标准输出的50%[标准输出10位|选手输出2位]
测试结果2: 测试结果正确
测试结果3: 测试结果正确
测试结果4: 测试结果正确
测试结果5: 测试结果正确
测试结果6: 测试结果正确
测试结果7: 测试结果正确
测试结果8: 测试结果正确
测试结果9: 测试结果正确
测试结果10: 测试结果正确
program fz；
var b:array[0..1000000]of char；
k,i,j,x,y:longint；
begin
while b[k]<>E do
begin
inc(k)；
inc(j)；
read(b[k])；
if j=20 then begin readln； j:=0； end；
end；
k:=k-1；
for i:=1 to k do
begin
if b[i]=W then inc(x)
else inc(y)；
if (((x>=11)or(y>=11))and((x-y>=2)or(y-x>=2)))or(i=k)
then
begin
writeln(x,:,y)；
if (i=k)and(((x>=11)or(y>=11))and((x-y>=2)or(y-x>=2)))
then writeln(0,:,0)；
x:=0； y:=0；
end；
end；
writeln；
for i:=1 to k do
begin
if b[i]=W then inc(x)
else inc(y)；
if (((x>=21)or(y>=21))and((x-y>=2)or(y-x>=2)))or(i=k)
then
begin
writeln(x,:,y)；
if (i=k)and(((x>=21)or(y>=21))and((x-y>=2)or(y-x>=2)))
then writeln(0,:,0)；
x:=0；
y:=0；
end；
end；
end.
if b[1]='E' then begin
writeln('0:0');
writeln;
writeln('0:0');
exit;
end;