为什么会216?
pascal吧
全部回复
仅看楼主
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
level 7
猴子很不服气地问屎壳郎:“你为什么放弃我,而选择嫁给大象呢?”屎壳郎很鄙视地对猴子说:“没办法,我认为活着就应该懂得如何享受生活,嫁给他我就会吃喝不愁了……”
2014年01月05日 21点01分 2
level 9
until i>=length(s);
2014年01月06日 03点01分 3
level 7
小强上小学时捡到了一分钱,他交给了老师,老师说他是好孩子。他上初中时捡到了一角钱,交给了警察叔叔,警察叔叔说他是好学生。他上高中时捡到了一元钱,交给了妈妈,妈妈说他真懂事。他上大学量捡到了十元钱,他放进了捐款箱。找工作时他捡到了一百元钱,他左顾右盼,最后放进了自己的口袋。
2014年01月06日 17点01分 4
1