#1 lizhixin@2008-07-09 19:17:00
2233
回复
删除
说的好!!!!!顶!
program n_51;
var s11,s21,b21,b11:array[0..100000]of longint;
x:char;
i,j,i2:longint;
begin
read(x); IF X=E THEN
BEGIN
WRITELN(0:0);
WRITELN;
WRITELN(0:0);
EXIT;
END;
i:=1;i2:=1;
repeat
IF (X=W) OR (X=L) THEN
BEGIN
if x=W then
begin
inc(s11[I]);
inc(s21[i2]);
end
else
begin
inc(b11[i]);
inc(b21[i2]);
end;
if ((s11[i]>=11) or (b11[i]>=11)) AND (ABS(S11[I]-B11[I])>1) then inc(i);
if ((s21[i2]>=21) or (b21[i2]>=21)) AND (ABS(S21[I2]-B21[I2])>1) then inc(i2);
END;
read(x);
until x=E;
for j:=1 to i do writeln(s11[j],:,b11[j]);
writeln;
for j:=1 to i2 do writeln(s21[j],:,b21[j]);
end.