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