Cod sursa(job #581358)
Utilizator | Data | 14 aprilie 2011 00:30:52 | |
---|---|---|---|
Problema | Submultimi | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.49 kb |
var a:array[1..100]of byte;
n:byte; f:text;
procedure afis;
var i:byte; b:boolean;
begin
b:=false;
for i:=1 to n do
if a[i]>0 then begin b:=true; write(f,i,' '); end;
if b then writeln(f);
end;
procedure gen_bin(p:byte);
begin
if p>n then afis
else begin
a[p]:=0; gen_bin(p+1);
a[p]:=1; gen_bin(p+1);
end;
end;
begin
assign(f,'submultimi.in');
reset(f);
readln(f,n);
close(f);
assign(f,'submultimi.out');
rewrite(f);
gen_bin(1);
close(f);
end.