讨论 / 这道题好纯洁啊
王帅炜 2013-08-31 19: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.

难道真的就没有比这个更纯洁的答案了吗

查看更多回复
提交回复