Cod sursa(job #578802)
| Utilizator |  Andrei Datcu andrei31 |
Data | 11 aprilie 2011 16:58:50 |
|---|---|---|---|
| Problema | Submultimi | Scor | 90 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.28 kb |
var i,j,n:integer;
begin
assign(input,'submultimi.in');reset(input);
readln(n);
assign(output,'submultimi.out');rewrite(output);
for i:=1 to 1 shl n-1 do
begin
for j:=0 to n-1 do
if i and (1 shl j)>0 then write(j+1,' ');
writeln;
end;
close(input);close(output);
end.