洛谷 P1042 乒乓球

最新推荐文章于 2024-07-03 09:45:34 发布

hehe_54321

最新推荐文章于 2024-07-03 09:45:34 发布

阅读量428

点赞数

分类专栏：模拟文章标签：模拟

本文链接：https://blog.csdn.net/hehe_54321/article/details/75046253

版权

模拟专栏收录该内容

7 篇文章 0 订阅

订阅专栏

P1042 乒乓球

var s:string; a1:array[1..50000] of char;
i,n,x,y:longint;
procedure f1;
begin
  while not eof do
  begin
    readln(s);
    for i:=1 to length(s) do
    begin
      if s[i]='E' then exit;
      inc(n);
      a1[n]:=s[i];
    end;
  end;
end;

begin
  f1;
  for i:=1 to n do
  begin
    if a1[i]='W'
      then inc(x)
      else inc(y);
    if ((x>=11) or (y>=11)) and (abs(x-y)>=2)
      then
      begin
        writeln(x,':',y);
        x:=0;y:=0;
      end;
  end;
  writeln(x,':',y);  writeln;
  x:=0;y:=0;
  for i:=1 to n do
  begin
    if a1[i]='W'
      then inc(x)
      else inc(y);
    if ((x>=21) or (y>=21)) and (abs(x-y)>=2)
      then
      begin
        writeln(x,':',y);
        x:=0;y:=0;
      end;
  end;
  writeln(x,':',y);
end.