Cod sursa(job #1075760)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 9 ianuarie 2014 15:40:14
Problema Submultimi Scor 80
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
program subm;
  var n,i,j:integer;

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.