Matematické Fórum

program jn;
var a:array[1..64] of string;
    i,j,n,x,p:integer;
    one,zero,swap:char;
begin
one:='1';
zero:='0';
swap:=' ';
x:=1;
p:=1;
writeln('zadaj cislo od 1 po 6');
read(n);
for i:=1 to n do x:=x*2;
for i:=1 to n do begin
                 p:=p*2;
                 for j:=1 to x do begin
                                  if (j mod p)=1 then begin
                                                      swap:=zero;
                                                      zero:=one;
                                                      one:=swap;
                                                      a[j]:=a[j]+one;
                                                      end
                                                 else a[j]:=a[j]+one;


                                  end;
                 end;
for i:=1 to x do writeln(a[x]);
end.