记录编号 135221 评测结果 AAAAAAAAAAAAAAAAAAAA
题目名称 [東方S3] 比那名居天子 最终得分 100
用户昵称 GravatarFoolMike 是否通过 通过
代码语言 Pascal 运行时间 0.129 s
提交时间 2014-10-31 20:35:25 内存使用 0.17 MiB
显示代码纯文本
  1. var
  2. n,k,i,l,ans:longint;
  3. s:ansistring;
  4. begin
  5. assign(input,'tenshi.in');
  6. reset(input);
  7. assign(output,'tenshi.out');
  8. rewrite(output);
  9. readln(n,k);
  10. readln(s);
  11. for i:=1 to n do
  12. s:=s+'0';
  13. s:=s+'.';
  14. repeat
  15. ans:=0;
  16. i:=1;
  17. repeat
  18. while s[i]='0' do inc(i);
  19. if s[i]='.' then break;
  20. i:=i+l;
  21. inc(ans);
  22. until (s[i]='.')or(ans>k);
  23. if ans<=k then
  24. begin
  25. writeln(l);
  26. exit;
  27. end;
  28. inc(l);
  29. until 1>2;
  30. close(input);close(output);
  31. end.