usaco 2.2 runround 2008.6.20

usaco 2.2 runround 2008.6.20

{简单的模拟，循环不要错了即可}

{

ID:

PROG: runround

LANG: PASCAL

}

program p_runround;

const r:array['1'..'9']oflongint=(1,2,3,4,5,6,7,8,9);

var

f1,f2:text;

a:array['0'..'9']oflongint;

k,b:array[1..9]of longint;

c:string;l,m:longint;

flag:boolean;

procedure change;

var i:longint;

begin

for i:=1 to l do

b[i]:=r[c[i]];

end;

function choose(t:longint):boolean;

var i:longint;ch:char;

begin

fillchar(a,sizeof(a),0);str(t,c);l:=length(c);

fori:=1 to l do inc(a[c[i]]);

choose:=true;if a['0']>0 then choose:=false;

forch:='1' to '9' do if a[ch]>1 then choose:=false;

end;

procedure doit;

var p:boolean;s,x,t:longint;

begin

repeat

flag:=true;

inc(m);p:=choose(m);t:=1;

writeln(m);

if p then

begin

change;fillchar(k,sizeof(k),0);

for s:=1 to l do

begin

x:=b[t];inc(k[x]);

t:=(t+x)mod l;if t=0 then t:=l;

end;{for s}

for s:=1 to 9 do if k[s]>1 then flag:=false;

if t<>1 then flag:=false;

end else flag:=false;{if p}

until flag;

writeln(f2,m);

end;{doit}

{--------------main-----------------}

begin

assign(f1,'runround.in');reset(f1);

assign(f2,'runround.out');rewrite(f2);

read(f1,m);

doit;

close(f1);close(f2);

end.