讨论 / 很弱啊很弱
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.

#1 jiaangk@2016-04-23 06:38:10
回复 删除
长了吧
查看更多回复
提交回复