得分: 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;