讨论 / 只求解答
kingoffighters 2008-10-31 19:43:00
点我顶贴 收藏 删除
var n:longint;

begin

readln(n);

n:=n mod 16;

if (n=1) or (n=8) or (n=11) or (n=14) then writeln(’hong’)

else if (n=2) or (n=5) or (n=12) or (n=15) then writeln(’bai’)

else if (n=3) or (n=6) or (n=9) or (n=0) then writeln(’qing’)

else if (n=4) or (n=7) or (n=10) or (n=13) then writeln(’huang’);

if (n=1) or (n=2) or (n=3) or (n=4) then write(’hong’,’ ’,’bai’,’ ’,’qing’,’ ’,’huang’)

else if (n=5) or (n=6) or (n=7) or (n=8) then write(’bai’,’ ’,’qing’,’ ’,’huang’,’ ’,’hong’)

else if (n=9) or (n=10) or (n=11) or (n=12) then write(’qing’,’ ’,’huang’,’ ’,’hong’,’ ’,’bai’)

else if (n=13) or (n=14) or (n=15) or (n=0)

then write(’huang’,’ ’,’hong’,’ ’,’bai’,’ ’,’qing’);

end.

第一组超时

后两组错误

其余正确

为什么。。。。

#1 kingoffighters@2008-10-31 19:43:00
回复 删除
这个题居然也能超时,我真抑郁了
查看更多回复
提交回复