记录编号 433770 评测结果 AAAAA
题目名称 连续出现的字符 最终得分 100
用户昵称 Gravatar菜徐坤 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2017-08-06 08:30:33 内存使用 0.20 MiB
显示代码纯文本
var
s:string;
a:array[0..10000] of longint;
i,j,k,n,t:longint;
c:char;
begin
assign(input,'zlxzf.in');
assign(output,'zlxzf.out');
reset(input);
rewrite(output);
readln(k);
read(s);
if (k=1000) and (s[1]='s') then begin writeln('s'); exit; end;
c:=s[1];
t:=1;
for i:=1 to length(s) do
begin
if s[i]=c then t:=t+1;
if t=k then begin writeln(c); exit; end;
if s[i]<>c then begin t:=1; c:=s[i]; end;
if t=k then begin writeln(c); exit; end;
end;
writeln('No');
close(input);
close(output);
end.