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

3016 质子撞击炮 II
题目描述 Description
欧盟简直是太贪心了。继完成与苏联的合作灭了尤里之后，继续与苏联交战。可惜的是，在这期间，传说中的小日本（旭日帝国·升阳帝国）居然强大起来了。盟军重新与苏联合作，准备歼灭日本。在小爱（爱因斯坦）之后，不少盟军的杰出科学家合作发明了闪电风暴二代：质子撞击炮。它的好处就是冷却时间短，威力大。每当一次攻击过后，五发质子能量炮弹一齐落在敌人基地里，造成毁灭性的打击。缺点就是，炮弹先打到外太空再掉进敌人家中，飞的时间太长了。盟军老大迫不及待的想知道这次攻击能毁掉日本多少建筑物，请你编程帮忙算一下。数据详见输入描述。
输入描述 Input Description
输入的第一行n，表示敌方阵营的大小。
输入的第2~n+1，表示输入一个敌方阵营图。阵营图中每个元素由0-9组成。0表示没有建筑物，其余数字表示当前建筑物的血量值。（默认每个建筑物占一个方格）。
输入的接下来五行，表示五发质子能量炮弹的落点中心，表示落点在笛卡尔坐标系的某个点上。质子能量炮弹对中心造成2点伤害，对以该点为九宫格中心的其他八个方格造成一点伤害。如果某个点的建筑物血量被轰击至0或更低，则称这个建筑物被击毁。
输出描述 Output Description
仅一行，被击毁的建筑物数量。
样例输入 Sample Input
5
0 3 1 2 4
1 3 4 1 0
0 0 3 4 1
1 3 4 5 0
0 0 9 0 0
1 2
2 2
4 3
4 3
2 4
样例输出 Sample Output
8
数据范围及提示 Data Size & Hint
(点a,点b)表示第a行第b列
原题有误，我更正一下。
顺便加强了数据（最大1000*1000的邻接矩阵）；

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舆少

codevs我都快黄金了

有意思，但是好多在下都做不来。。。