level 7
fly一Abc
楼主
var s:string;
i,k,max:longint;
begin
readln(s);
i:=0;
k:=0;
max:=-9999999;
repeat
inc(i);
if s[i]='D' then continue;
while s[i]='K' do begin inc(k); inc(i); end;
if k>max then max:=k;
k:=0;
until i=length(s);
case max of
0,1,2 :writeln(' You are a Foolish Man');
3 :writeln('You are on a Killing Spree');
4 :writeln('You are Dominating');
5 :writeln('You have a Mega-Kill');
6 :writeln('You are Unstoppable');
7 :writeln('You are Wicked Sick');
8 :writeln('You have a M-m-m-m....Monster Kill');
9 :writeln('You are Godlike');
end;
if max >=10 then writeln('You are Beyond Godlike (Somebody kill him!)');
end.
2014年01月01日 09点01分
1
i,k,max:longint;
begin
readln(s);
i:=0;
k:=0;
max:=-9999999;
repeat
inc(i);
if s[i]='D' then continue;
while s[i]='K' do begin inc(k); inc(i); end;
if k>max then max:=k;
k:=0;
until i=length(s);
case max of
0,1,2 :writeln(' You are a Foolish Man');
3 :writeln('You are on a Killing Spree');
4 :writeln('You are Dominating');
5 :writeln('You have a Mega-Kill');
6 :writeln('You are Unstoppable');
7 :writeln('You are Wicked Sick');
8 :writeln('You have a M-m-m-m....Monster Kill');
9 :writeln('You are Godlike');
end;
if max >=10 then writeln('You are Beyond Godlike (Somebody kill him!)');
end.