回复：无聊吗？每天来一道编程题，每天都大快人心！！

2283 DOTA
题目描述 Description
很多童鞋喜欢玩一些lol、dota这类游戏，这类游戏有一个特点，在你不死的情况下连续杀人会有不同称号。
下面输入一组字符，其中只包含K和D，K代表杀敌，D代表死亡，求他最高称号。
0/1/2 - You are a Foolish Man
3 - You are on a Killing Spree
4 - You are Dominating
5 - You have a Mega-Kill
6 - You are Unstoppable
7 - You are Wicked Sick
8 - You have a M-m-m-m....Monster Kill
9 - You are Godlike
10+ - You are Beyond Godlike (Somebody kill him!)
样例输入
KKKDKKDDDKKKK
样例输出
You are Dominating
这个题相对上面的题，已经非常简单了

2283 DOTA
我的正确答案：（答案不唯一）
Program abc;
Var ch:string;
a,i,s,count,j:integer;
Begin
Readln(ch);
s:=0; Count:=length(ch); J:=0; a:=0;
for i:=1 to Count do
repeat
inc(j);
If (ch[j] in ['K'])
Then begin inc(s);
begin
if s>=a then
a:=s;end;
Count:=Count-1;end;
If ch[j] in ['D'] then
begin
if s>=a then
a:=s;
s:=0;
Count:=Count-1;end;
Until Count=0 ;
case a of
0,1,2:write('You are a Foolish Man');
3:write('You are on a Killing Spree') ;
4:write('You are Dominating');
5:write('You have a Mega-Kill');
6:write('You are Unstoppable');
7:write('You are Wicked Sick');
8:write('You have a M-m-m-m....Monster Kill');
9:write('You are Godlike');
else write('You are Beyond Godlike (Somebody kill him!)');
end;end.

@K舆少