HELP!PLEASE HELP ME!

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.

0 条评论

目前还没有评论...

信息

ID
1217
难度
7
分类
字符串 点击显示
标签
递交数
18717
已通过
4282
通过率
23%
被复制
33
上传者