- 乒乓球
- 2009-03-04 13:29:23 @
program tennis;
var i,j,m,n,a,b,c,d,e,f,g,h:longint;
var t,s,x,k:longint;
var str,str2,str3:ansistring;
begin
readln(n);
readln(str);
m:=length(str);
t:=trunc(m div 11);
repeat
for i:=1 to t do
begin
for j:=1 to 11 do if str[j]='w' then a:=a+1 else b:=b+1;
writeln(a,':',b);
a:=0;b:=0;
end;
until str[i]'e';
s:= m mod 11;
str2:=copy(str,11*t,s);
for i:= 1 to s do
begin
if str2[i]='w' then c:=c+1 else d:=d+1;
end;
writeln(c,':',d);
writeln;
x:=trunc(m div 21);
repeat
for i:=1 to x do
begin
for j:=1 to 21 do if str[j]='w' then e:=e+1 else f:=f+1;
writeln(e,':',f);
e:=0;f:=0;
end ;
until str[i]'e';
k:=m mod 21;
str3:=copy(str,21*x,k);
for i:= 1 to k do
begin
if str3[i]='w' then g:=g+1 else h:=h+1;
end;
writeln(g,':',h);
writeln;
readln;
end.