闪翼魔术师 2013-11-01 07:04:44
点我顶贴
收藏
删除
var n,x,y:longint;
begin
readln(n);
x:=n mod 16;
y:=n mod 4;
case x of
1,2,3,4:begin
case y of
1:writeln('hong');
2:writeln('bai');
3:writeln('qing');
0:writeln('huang');
end;
writeln('hong bai qing huang');
end;
5,6,7,8:begin
case y of
1:writeln('bai');
2:writeln('qing');
3:writeln('huang');
0:writeln('hong');
end;
writeln('bai qing huang hong');
end;
9,10,11,12:begin
case y of
1:writeln('qing');
2:writeln('huang');
3:writeln('hong');
0:writeln('bai');
end;
writeln('qing huang hong bai');
end;
13,14,15,0:begin
case y of
1:writeln('huang');
2:writeln('hong');
3:writeln('bai');
0:writeln('qing');
end;
writeln('huang hong bai qing');
end;
end;
end.
这样不就结了么，和贪心有什么关系么？