10分2333 大佬求解

var a:CHAR;
ch:array[1..100000]of char;
r1,r2,ans1,ans2,i,j,b:longint;
begin
i:=0;
repeat
read(a);
if (a='w')or (a='L') THEN
begin
inc(i);
ch[I]:=a;
end;
until a='E';
for j:=1 to i do
begin
if ch[j]='W' then inc(r1)
else inc(r2);
if abs(r1-r2)>=2 then
if (r1>=11)or (r2>=11) then

begin
writeln(r1,':',r2);
r1:=0;
r2:=0;
end;
end;
writeln(r1,':',r2);
writeln;
if (r1>=21) or (r2>=21)then
begin
writeln(r1,':',r2);
r1:=0;
r2:=0;
end;
writeln(r1,':',r2);
end.

0 条评论

目前还没有评论...

信息

ID
1217
难度
7
分类
字符串 点击显示
标签
递交数
15475
已通过
3540
通过率
23%
上传者