Найти количество счастливых чисел не больших заданного N

function Lucky(n:int64):boolean;
begin
lucky:=true;
if (n=0) then exit else
  begin
    while n>0 do begin
      if (n mod 10<>4) and (n mod 10<>7) then Lucky:=false;
      n:=n div 10;
      end;
end;
end;
var n,i,k:int64; //или qword,тут разницы нет
begin
  read(n);
  k:=0;
  for I:=1 to n do
  begin
    if Lucky(i) then k:=k+1;
    end;
    write(k);
end.

while b<>0 do
    begin
      c:=b mod 10;
      if (c=1) then c:=7 else
      if (c=0) then c:=4;
      k:=k*10+c;
      //if (b mod 10=7) then c:=c*10+7 else
     // if (b mod 10=4) then c:=c*10+4;
      b:=b div 10;
      end;
      while k<>0 do
    begin
      g:=g*10+k mod 10;
      //if (c=1) then c:=7 else
      //if (c=0) then c:=4;
      r:=r*10+g;
      //if (b mod 10=7) then c:=c*10+7 else
     // if (b mod 10=4) then c:=c*10+4;
      k:=k div 10;
      end;
      переменная g будет со
где b- результат перевода из 10 в двоичную
3)
const digit:string[2]='01'; //цифры в СС 2
var s2:string;
    n,i:integer;
begin
writeln('Введите число в СС 2');
readln(s2);
while s2[1]='0' do
delete(s2,1,1);//удалим ведущие ноли
n:=0; //получим число в СС 10
for i:=1 to length(s2) do
n:=n*2+pos(s2[i],digit)-1;
write('n=',n)
end.

  var s2:string;
const digit:string[2]='01';
function r1(s2:string):longint;
var i,n:integer;
begin
//const digit:string[2]='01'; //цифры в СС 2
//var s2:string
//n,i:integer;
//begin
//writeln('Введите число в СС 2');
//readln(s2);
while s2[1]='0' do
delete(s2,1,1);//удалим ведущие ноли
n:=0; //получим число в СС 10
for i:=1 to length(s2) do
n:=n*2+pos(s2[i],digit)-1;
//write('n=',n)
end;
function dec2bin(x:integer):string;
var s:string;
begin
s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
dec2bin:=s;
end;
var a,b,c,d,k,g,r,m,P,U:uint64;
begin
  read(a);
  b:=strtoint(Dec2Bin(a));
  d:=b;
  c:=0;
  k:=0;
  g:=0;
  r:=0;
  p:=a;
  while a<>0 do
    begin
      //c:=c*10+a mod 10;
      if (a mod 10=7) then c:=c*10+1 else
      if (a mod 10=4) then c:=c*10+0;
      k:=k*10+c;
      //if (b mod 10=7) then c:=c*10+7 else
     // if (b mod 10=4) then c:=c*10+4;
      a:=a div 10;
      end;
     // while k<>0 do
   // begin
    //  g:=g*10+k mod 10;
      //if (c=1) then c:=7 else
      //if (c=0) then c:=4;
     // r:=r*10+g;
      //if (b mod 10=7) then c:=c*10+7 else
     // if (b mod 10=4) then c:=c*10+4;
     // k:=k div 10;
     // end;
     
     // writeln(i);
     //write(r1(inttostr(c*10+1)));
     u:=strtoint((inttostr(c*10+1)));
     if (u>100) then
     write(u) else 
      if (p>10) then write(u*10)
      else  if (p>20) then write(u*10+1) else
      if (u=11) then write(u*10);
  end.

function Lucky(n:int64):boolean;
begin
lucky:=true;
if (n=0) then exit else
  begin
    while n>0 do begin
      if (n mod 10<>4) and (n mod 10<>7) then Lucky:=false;
      n:=n div 10;
      end;
end;
end;
var n,i,k:int64;
begin
  read(n);
  k:=0;
  for n:=n downto n div 10 do
  begin
    if Lucky(n) then begin
     write(n,' ');
      exit;
    end;
    end;
end.

var
  n, m: QWord;
  i: Integer;
begin
  ReadLn(s);
  { тут получаем счастливое число в s }
 
  m:=1;
  for i:=Length(s) downto 1 do begin
    if s[i]='7' then n:=n or m;
    m:=m shl 1;
  end;
  WriteLn(n or m-1);
end.