Pagini recente » Cod sursa (job #948309) | Cod sursa (job #2666127) | Cod sursa (job #3276551) | Cod sursa (job #3287407) | Cod sursa (job #381022)
Cod sursa(job #381022)
var
n, e : byte;
i, j : longint;
fi, fo : text;
begin
assign (fi, 'submultimi.in'); reset (fi);
assign (fo, 'submultimi.out'); rewrite (fo);
read (fi, n);
for i := 1 to 1 shl n-1 do
begin
j := i; e := 1;
while j > 0 do
begin
if j and 1 = 1 then
write (fo, e, ' ');
j := j shr 1; inc (e);
end;
writeln (fo);
end;
close (fi); close (fo);
end.