记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

R1215767 Unaccepted 20 From qzssy5618－

　 P1217 FPC Vivid Puppy 2009-4-20 18:34:40

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：运行超时|格式错误...

├ 测试数据 03：运行超时|格式错误...

├ 测试数据 04：运行超时|无输出...

├ 测试数据 05：运行超时|格式错误...

├ 测试数据 06：运行超时|格式错误...

├ 测试数据 07：运行超时|格式错误...

├ 测试数据 08：运行超时|格式错误...

├ 测试数据 09：运行超时|无输出...

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：20 有效耗时：0ms

源代码：

var

s:ansistring;

x,y:integer;

i:longint;

begin

readln(s);

for i:=1 to length(s) do

if s[i]'E'

then begin

if s[i]='W'

then inc(x)

else inc(y);

if ((x>=11)or(y>=11))and((x-y>=2)or(y-x>=2))

then if x>=11

then begin

writeln(x,':',y);

x:=0;

y:=0;

end

else begin

writeln(x,':',y);

x:=0;

y:=0;

end;

end

else begin

writeln(x,':',y);

break;

end;

writeln;

x:=0; y:=0;

for i:=1 to length(s) do

if s[i]'E'

then begin

if s[i]='W'

then inc(x)

else inc(y);

if ((x>=21)or(y>=21))and((x-y>=2)or(y-x>=2))

then if x>=21

then begin

writeln(x,':',y);

x:=0;

y:=0;

end

else begin

writeln(x,':',y);

x:=0;

y:=0;

end;

end

else begin

writeln(x,':',y);

break;

end;

end.