uses crt;
var s,n,j,i:integer;
a:Array[1..100] of integer;
{--------------------------}
Procedure print;
var j:integer;
begin
For j:=1 to n do write(a[j],' ');
writeln;
end;
{--------------------------}
Procedure Deq(i:integer);
var j,k,d:integer;
begin
For j:=0 to 1 do
begin
d:=0;
a[i]:=j;
if i=n then
For k:=1 to n do
begin
if (a[k]=0) and (a[k+1]=1) then inc(d);
if d=2 then print
end
else Deq(i+1);
end;
end;
{--------------------------}
Begin
clrscr;
write('Nhap n= ');readln(n);
Deq(1);
readln
end.
Sign up here with your email
ConversionConversion EmoticonEmoticon