Cod sursa(job #745154)
Utilizator | Data | 10 mai 2012 17:16:22 | |
---|---|---|---|
Problema | Submultimi | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.61 kb |
Program p1_submultimi_back;
var fi,fo:text;
n:byte;
st:array[0..25] of byte;
Procedure tipar(n:byte);
var i:byte;
begin
for i:=1 to n do write(fo,st[i],' ');
writeln(fo);
end;
Procedure back(k:byte);
var i:byte;
begin
for i:=st[k-1]+1 to n do begin
st[k]:=i;
tipar(k);
back(k+1);
end;
end;
begin
assign(fi,'submultimi.in'); reset(fi);
assign(fo,'submultimi.out'); rewrite(fo);
read(fi,n); st[0]:=0;
back(1);
close(fi); close(fo);
end.