比赛 20100920 评测结果 AAAAEAAAWE
题目名称 乒乓球 最终得分 70
用户昵称 1102 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-09-20 10:29:16
显示代码纯文本
program xxxx;
var  ch:array[1..100000] of char;
     i,n,a,b:integer;

begin
  assign(input,'table.in');
  reset(input);
  assign(output,'table.out');
  rewrite(output);
  a:=0;b:=0;n:=0;
  repeat
    begin
      inc(n);
      read(ch[n]);
      if ch[n]='W' then
        begin
          inc(a);
          if (a>=11)and(a-b>=2) then
           begin
            writeln(a,':',b);
            a:=0;
            b:=0;
           end;
        end;


        if (ch[n]='E') then
          begin
           if (a<>0)or(b<>0) then
            writeln(a,':',b);
            break;
          end;
        if (ch[n]='L') then
          begin
            inc(b);
            if (b>=11)and(b-a>=2) then
              begin
                writeln(a,':',b);
                a:=0;
                b:=0;
              end;
          end;

      end
  until eof(input);
  a:=0;b:=0;
  writeln;
  for i:=1 to n do
   begin
     if ch[i]='W' then
      begin
        inc(a);
        if (a>=21)and(a-b>=2) then
          begin
            writeln(a,':',b);
            a:=0;
            b:=0;
           end;
      end;
        if (ch[i]='E') then
          begin
          if (a<>0)or(b<>0) then
            writeln(a,':',b);
            break;
          end;
        if (ch[i]='L') then
          begin
            inc(b);
            if (b>=21)and(b-a>=2) then
              begin
                writeln(a,':',b);
                a:=0;
                b:=0;
              end;
          end;
   end;
  close(input);
  close(output);
end.