pascal 0，1 穷举法

来源：百度知道 编辑：UC知道 时间：2024/04/30 17:21:46
输入 N个数 输出 2的 N 次方个 1和0组成的 不同的数

program baidu;
var i,j,n:integer;
a:array[1..11]of 0..2;
begin
i:=1 ;
repeat readln(n); until(n>0)and(n<10);
fillchar(a,sizeof(a),0);
while a[n+1]=0 do
begin
for j:=1 to n do write(a[j]);writeln;
inc(a[1]);
i:=1 ;
while a[i]>1 do
begin
a[i]:=0;
inc(i);
inc(a[i]);
end;
end;
end.

什么意思？数学方面的知识吧？