clc
clear

x=input('Podaj liczbe mniejsza od 1 ');
A=[0,0,0,0,0,0];
if x<1
i=1;
while i<7
  x=x*2;
 if x<1
   A(i)=0
 else
  A(i)=1
  x=x-1
 end

 i=i+1;
end

end
disp(A);