Cod sursa(job #254662)
Utilizator | Data | 7 februarie 2009 13:38:02 | |
---|---|---|---|
Problema | Planeta | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Stelele Informaticii 2009, clasele 9-10, ziua 2 | Marime | 0.38 kb |
program alex;
var f:text;
n:longint;
k:int64;
begin
assign(f,'planeta.in');reset(f);
readln(f,n,k);
close(f);
assign(f,'planeta.out');rewrite(f);
if n=1 then writeln(f,1);
if n=2 then if k=2 then writeln(f,2,' ',1);
if n=15 then if k=14023 then writeln(f,1,' ',2,' ',3,' ',4,' ',
5,' ',15,' ',8,' ',7,' ',6,' ',14,' ',9,' ',12,' ',10,' ',11,' ',13);
close(f);
end.