洛谷 P1042 乒乓球

如果行号影响了复制,请点击代码框左上角的按钮。

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.


posted @   hehe_54321  阅读(154)  评论(0编辑  收藏  举报
编辑推荐:
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
阅读排行:
· 如何给本地部署的DeepSeek投喂数据,让他更懂你
· 超详细,DeepSeek 接入PyCharm实现AI编程!(支持本地部署DeepSeek及官方Dee
· 用 DeepSeek 给对象做个网站,她一定感动坏了
· .NET 8.0 + Linux 香橙派,实现高效的 IoT 数据采集与控制解决方案
· DeepSeek处理自有业务的案例:让AI给你写一份小众编辑器(EverEdit)的语法着色文件
AmazingCounters.com
点击右上角即可分享
微信分享提示