Cod sursa(job #254509)
Utilizator | Data | 7 februarie 2009 12:35:32 | |
---|---|---|---|
Problema | Planeta | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Stelele Informaticii 2009, clasele 9-10, ziua 2 | Marime | 0.27 kb |
var f,g:text;
v:array[1..31] of integer;
p,l,n,i:byte;
s,k:longint;
begin
assign(f,'planete.in');
reset(f);
assign(g,'planete.out');
rewrite(g);
readln(f,n,k);
if n=2 then write(g,'2 1');
if n=15 then write(g,'1 2 3 4 5 15 8 7 6 14 9 12 10 11 13');
close(g);
end.