记录编号 140699 评测结果 AAAAAAAAAA
题目名称 [冲刺NOIP2014]盥洗室问题 最终得分 100
用户昵称 GravatarFoolMike 是否通过 通过
代码语言 Pascal 运行时间 0.004 s
提交时间 2014-11-23 21:23:20 内存使用 0.17 MiB
显示代码纯文本
var
a,q,k,l,n,w,w1:longint;
s:ansistring;
ans:string;
begin
assign(input,'pisoar.in');
reset(input);
assign(output,'pisoar.out');
rewrite(output);
readln(k,l,n);
readln(s);
ans:='NO';
s:=s+'.';
w:=0;
repeat
  while s[w+1]='0' do inc(w);
  w1:=w;
  a:=0;
  while s[w+1]='1' do
    begin
    inc(a);
    inc(w);
    end;
  if (q<>0)and(a<>0) then
  if q+l<=w1 then
    begin
    writeln(q+l);
    q:=0;
    ans:='';
    end
  else
    q:=w;
  if a>=k then q:=w;
  until s[w+1]='.';
if q<>0 then
  begin
  writeln(q+l);
  ans:='';
  end;
writeln(ans);
close(input);close(output);
end.