Cod sursa(job #254719)

Utilizator ShadowHunterGhinea Razvan ShadowHunter Data 7 februarie 2009 13:52:50
Problema Planeta Scor 0
Compilator fpc Status done
Runda Stelele Informaticii 2009, clasele 9-10, ziua 2 Marime 1.35 kb
var f,g:text;
    a:array[1..10,1..10000] of longint;
    n,k,x,i,l,m,j,o:longint;
begin
assign(f,'planeta.in');reset(f);
assign(g,'planeta.out');rewrite(g);
read(f,n,k);
a[1,1]:=1;
a[2,1]:=12;
a[2,2]:=21;
a[3,1]:=123;
a[3,2]:=132;
a[3,3]:=213;
a[3,4]:=312;
a[3,5]:=321;
a[4,1]:=1234;
a[4,2]:=1243;
a[4,3]:=1324;
a[4,4]:=1342;
a[4,5]:=1423;
a[4,6]:=1432;
a[4,7]:=2134;
a[4,8]:=2143;
a[4,9]:=3124;
a[4,10]:=3214;
a[4,11]:=4123;
a[4,12]:=4132;
a[4,13]:=4213;
a[4,14]:=4231;
a[4,15]:=4312;
a[4,16]:=4321;
o:=0;
for i:=2 to 5 do
for j:=2 to 5 do
for l:=2 to 5 do
for m:=2 to 5 do if (i<>j)and(i<>l)and(i<>m)and(j<>m)and(j<>l)and(l<>m) then begin
inc(o);a[5,o]:=10000+1000*i+100*j+10*l+m;end;
a[5,25]:=21345;
a[5,26]:=21354;
a[5,27]:=21435;
a[5,28]:=21453;
a[5,29]:=21534;
a[5,30]:=21543;
a[5,31]:=31245;
a[5,32]:=31254;
a[5,33]:=32145;
a[5,34]:=32154;
a[5,35]:=41235;
a[5,36]:=41325;
a[5,37]:=41135;
a[5,38]:=42315;
a[5,39]:=43125;
a[5,40]:=43215;
o:=40;
for i:=1 to 4 do
for j:=1 to 4 do
for l:=1 to 4 do
for m:=1 to 4 do if (i<>j)and(i<>l)and(i<>m)and(j<>m)and(j<>l)and(l<>m) then begin
inc(o);a[5,o]:=50000+1000*i+100*j+10*l+m;end;
if n<6 then begin
x:=1;
for i:=1 to n-1 do
x:=x*10;
while a[n,k]<>0 do begin
write(g,a[n,k] div x,' ');
a[n,k]:=a[n,k] mod x;
x:=x div 10;
end;
end;
close(f);
close(g);
end.