Cod sursa(job #578805)
| Utilizator |  Andrei Datcu andrei31 |
Data | 11 aprilie 2011 17:01:09 |
|---|---|---|---|
| Problema | Submultimi | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.28 kb |
var i,j,n:longint;
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.
