Cod sursa(job #299465)

Utilizator Tase_CCapalna Tanase Tase_C Data 6 aprilie 2009 19:52:00
Problema Multimi2 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.66 kb
Raporteaza aceasta sursa 
var n,i:longint;
begin
read(n);
 case n mod 4 of
  0:begin
     writeln('0');writeln(n div 2);
     for i:=1 to (n div 4) do write(2*i-1,' ');
     for i:=1 to (n div 4) do write((n div 2)+2*i,' ');
     writeln;
     writeln(n div 2);
     for i:=1 to (n div 4) do write(2*i,' ');
     for i:=1 to (n div 4) do write((n div 2)+2*i-1);
    end;
  3:begin
   writeln('0');writeln(n div 2);
   for i:=1 to (n div 4) do write(2*i,' ');
   for i:=1 to (n div 4)+1 do write((n div 2)+2*i,' ');
   writeln;
   writeln(n div 2+1);
   for i:=1 to (n div 4)+1 do write(2*i-1,' ');
   for i:=1 to (n div 4)+1 do write((n div 2)+2*i-1,' ');
  end;
 1:
 end;
end.