原则性散分~~~~~~~~~

Question

由于近半个月比较活跃，今天不小心多了个裤衩，说了惭愧，注册时间不晚，由于前几年竟遗忘了这块“宝地”，搞得我每穿一个裤衩平均下来要一年多，废话少说，给兄弟们放分（晕，本来想放205分了，发帖说俺权限不够，看来做好事也还需继续努力啊，再穿个裤衩就行了），注意规则：case 楼层 of
  1..10: 得分 := 5;
  11..20: 得分 := 楼层 - 10;
else
  if 楼层 mod 5 = 0 then
    得分 := 5;
end;

Answer 1

由于分数限制，现将规则调整如下：
case 楼层 of
  1..10: 得分 := 2;
  11..20: 得分 := 楼层 - 10;
else
  if 楼层 mod 5 = 0 then
    得分 := 5;
end;

Answer 2

if 楼层 mod 5 = 0 then
    得分 := 5;
应该还有个until Total>205

Answer 3

在建设一层
if i mod 10 = 0 then
   i = 1