状态: Unaccepted

测评机： Xeond[6]

得分： 0分

提交日期： 2011-9-12 9:47:00

有效耗时： 该状态没有记录

RQNOJ近期在线比赛列表

RQNOJ九月份月赛 时间:2011-9-24 18:30:00 [报名]

测试结果1: 选手程序运行超过时限

测试结果2: 选手程序无输出

测试结果3: 选手程序无输出

测试结果4: 选手程序无输出

测试结果5: 选手程序无输出

测试结果6: 选手程序运行超过时限

测试结果7: 选手程序无输出

测试结果8: 选手程序无输出

测试结果9: 选手程序无输出

测试结果10: 选手程序无输出

Program syw0020;

procedure tra(chengji:integer);

var temp:char; w,l:integer; first:boolean;

begin

w:=0; l:=0; first:=true; read(temp);

while temp<>'E' do begin

if temp='W' then inc(w)

else if temp='L' then inc(l);

if ((w>=chengji) or (L>=chengji)) and (temp='E') then

begin

writeln(w,':',l);

w:=0;

l:=0;

first:=false;

end;

read(temp);

end;

writeln(w,':',l);

end;

begin

tra(11);

writeln;

tra(21);

end.