洛谷 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.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
· 如何给本地部署的DeepSeek投喂数据,让他更懂你
· 超详细,DeepSeek 接入PyCharm实现AI编程!(支持本地部署DeepSeek及官方Dee
· 用 DeepSeek 给对象做个网站,她一定感动坏了
· .NET 8.0 + Linux 香橙派,实现高效的 IoT 数据采集与控制解决方案
· DeepSeek处理自有业务的案例:让AI给你写一份小众编辑器(EverEdit)的语法着色文件