linzeyang1997 2013-10-19 08:13:00
点我顶贴
收藏
删除
var
str:string;
a:array[1..1000000] of char;
b,o,c,h,d:array[1..1000] of integer;
i,j,n:longint;
ch:char;
procedure bifen(m:integer);
var
i,j,k:longint;
h,d:array[1..10000] of integer;
begin
i:=0;
j:=1;
repeat
inc(i);
if (b[i]=1) or (o[i]=1) then
begin
c[j]:=c[j]+1;
h[j]:=h[j]+b[i];
d[j]:=d[j]+o[i];
end;
if (c[j]>=m) and ((h[j]-2>=d[j]) or (d[j]-2>=h[j])) and (i<n)
then inc(j);
until i=n;
for k:=1 to j do
writeln(h[j],':',d[j]);
end;
begin
n:=0;
repeat
inc(n);
read(a[n]);
until a[n]='E';
n:=n-1;
fillchar(b,sizeof(b),0);
fillchar(o,sizeof(o),0);
for i:=1 to n do
begin
if a[i]='W' then b[i]:=1;
if a[i]='L' then o[i]:=1;
end;
bifen(11);
writeln;
bifen(21);
end.