huihui850 2013-03-26 02:21:00
点我顶贴
收藏
删除
const
q='hong';
w='bai';
e='qing';
r='huang';
var a:array[1..16]of string;
n,i,j,z:longint;
begin
a[1]:=q;a[2]:=w;a[3]:=e;a[4]:=r;
a[5]:=w;a[6]:=e;a[7]:=r;a[8]:=q;
a[9]:=e;a[10]:=r;a[11]:=q;a[12]:=w;
a[13]:=r;a[14]:=q;a[15]:=w;a[16]:=e;
read(n);
if n=16 then writeln('qing');
i:=n mod 16;
write(a[i]);
writeln;
if (n mod 16)=0 then begin
for j:=13 to 16 do write(a[j],' ');
readln;
readln;
halt;
end;
while i>4 do begin
i:=i-4;
inc(z);
end;
for j:=z*4+1 to (z+1)*4 do
write(a[j],' ');
writeln;
readln;
readln;
end.