王帅炜 2013-08-31 04:46:00
点我顶贴
收藏
删除
const a:array[1..16] of integer=(1,2,3,4,2,3,4,1,3,4,1,2,4,1,2,3);
var n,i,l,r:longint;
procedure print(k:integer);
begin
if (k=1) then write('hong');
if (k=2) then write('bai');
if (k=3) then write('qing');
if (k=4) then write('huang');
end;
begin
read(n);
print(a[((n-1) mod 16)+1]); writeln;
n:=((n-1) mod 16)+1;
i:=n;
while (i mod 4 <> 1) do dec(i); l:=i;
i:=n;
while (i mod 4 <> 0) do inc(i); r:=i;
for i:= l to r do begin print(a[i]); if(i<>r) then write(' '); end;
end.
难道真的就没有比这个更纯洁的答案了吗