洛谷 P1042 乒乓球
2024-10-21 04:06:56
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.
最新文章
- js日期相关
- Struts2 token禁止重复提交表单
- PHP创建数据库数据表
- HDU 2709 Sumsets（递推）
- NET垃圾回收机制【Copy By Internet】
- Linux运维工程师成长必经之路
- ComponentOne的C1Chart做饼状图怎么显示其百分比
- svn小技巧——重定向svn diff
- 文字适应DIV
- ajax基本概念，方法
- jQuery选择器课堂随笔
- 阿里消息队列中间件 RocketMQ 源码分析 —— Message 拉取与消费（上）
- JMeter打开脚本失败 如何解决？
- TLS详解
- CF 1051F
- 我的WafBypass之道（Misc篇）
- CPU温度问题
- Go语言规格说明书 之 通道 发送语句（send） 和 接收操作符（receive）
- springboot测试
- docker 基本操作