Cod sursa(job #1179392)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 28 aprilie 2014 17:11:09
Problema Submultimi Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
program submultimi;
   var i,j,n:longint;

begin
  assign(input,'submultimi.in');
  reset(input);
  assign(output,'submultimi.out');
  rewrite(output);

  readln(n);
  for i:=1 to 1 shl n do
    begin
     for j:=1 to n do if (i and (1 shl (j-1)))<>0 then write(j,' ');
     writeln;
    end;
  close(output);
end.