program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var b:array[0..9] of integer;
i,j,k,bz:integer;
dat:text;
function binpot(q:integer):integer;
var p,l:integer;
begin
p:=1;
for l:=1 to q do
p:=p*2;
binpot:=p
end;
begin
assign(dat,'c:\primjer.txt');
rewrite(dat);
writeln('Koliko znamenki');
readln(bz);
bz:=bz-1;
for i:=0 to bz do
b:=0;
for j:=1 to binpot(bz+1) do
begin
for i:=bz downto 0 do
write(dat, b);
writeln(dat,' ');
if b[0]=0 then
b[0]:=1
else
begin
k:=0;
repeat
b[k]:=0;
k:=k+1;
until (b[k]=0) or (k=bz);
b[k]:=1
end;
end;
readln;
close(dat);
end.
2.
program Project3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var b:array[0..9] of integer;
elementi:array[0..9] of string[10];
i,j,k,bz:integer;
dat:text;
function binpot(q:integer):integer;
var p,l:integer;
begin
p:=1;
for l:=1 to q do
p:=p*2;
binpot:=p
end;
begin
assign(dat,'c:\primjer.txt');
rewrite(dat);
writeln('Koliko elemenata');
readln(bz);
bz:=bz-1;
for i:=0 to bz do
begin
writeln('Unesi ',i+1,'. element skupa');
readln(elementi);
end;
for i:=0 to bz do
b:=0;
for j:=1 to binpot(bz+1) do
begin
for i:=bz downto 0 do
if b=1 then write(dat, elementi,' ');
writeln(dat,' ');
if b[0]=0 then
b[0]:=1
else
begin
k:=0;
repeat
b[k]:=0;
k:=k+1;
until (b[k]=0) or (k=bz);
b[k]:=1
end;
end;
readln;
close(dat);
end.