Найти количество счастливых чисел не больших заданного 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.

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, m,g: uint64;
i: longint;
a,s:string;
begin
  read(a);
  g:=strtoint(a);
  for g:=g downto g div 10 do
    begin
      if Lucky(g) then 
        begin
          str(g,s);
          break;
          end;
          end;
//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.

var s:string;
   N,i:longint;
begin
  readln(s); //тут получаем наибольшее счастливое число,меньшее n
   N:=0;
  for i:=1 to length(s) do
    if s[i]='4' then N:=N*2+1
    else N:=N*2+2; writeln(N);
end.

  for i:=1 to Length(s) do n:=n shl 1+1+Ord(s[i]='7');

var s:string;
   N,i:int64;
begin
  readln(s); //тут получаем наибольшее счастливое число,меньшее n
   N:=0;
for i:=1 to Length(s) do 
n:=n shl 1+1+Ord(s[i]='7');
writeln(n);
end.

var
pow,q,d0,i,n:int64;
s:string;
function pow2(x:int64):int64;
var i,s:longint;
begin
s:=1;
for i:=1 to x do
s:=s*2;
pow2:=s;
end;
begin
read(N);
str(n,s);
d0:=length(s);
for i:=1 to d0-1 do
q:=q+pow2(i);
inc(q);
//writeln(q);
for i:=d0 downto 1 do
begin
if s[i]='7' then inc(q, pow2(d0-i))
end;
writeln(q);
end.

var s:string;
   N,i:int64;
begin
  readln(s); //тут получаем наибольшее счастливое число,меньшее n
   N:=0;
for i:=1 to Length(s) do 
n:=n shl 1+1+Ord(s[i]='7');
writeln(n);
end.

var s,c:string;
n,i,j,res,resuls,d:uint64;
cd:char;
begin
readln(s);
n:=length(s);
c:=inttostr(n-1); //костыль,что делать пока не знаю,с C++ почти не знаком
//unsigned long long result = len > 1 ? (1llu << len) - 2 : 0
//Без понятия что с этой строкой делать,что такое 1llu?Откуда оно взялось? 
for I:=1 to n do begin
  cd:=s[i];
  d:=Ord(cd)-48;
  if (d<4)
    then begin
      j:=i-1;
      repeat
      if c[j]=7 then begin
      c[j]:=4;
      for k:=+1 to n do
        c[k]:=7;
        break;
       end;
       j:=j-1;
       until j>=0;
       break;
       end;
       if (d>4)and(d<7) then begin
       c[i]:=4;
       for j:=i+1 to n do
        c[j]:=7;
        break;
        end;
        if d>7 then begin
        for j:=i to n do
          c[j]:=7;
          break;
          end;
          c[i]:=d;
         end;
         if (d[n-1]) then begin
          if d[n-1] mod 2=4 then res:=d[i-1];
          i:=n-2;
          repeat
            if (c[i]=7)
              then res:=res+d[n-1-i];
            resuls:=resuls+res;
            i:=i-1;
            until i>=0;
            end;
            write(resuls);
end.

if len>1 then result:=1 shl len-2 else result:=0;

var s,d:string;
num:array[0..33] of byte;
n,i,j,res,resuls,k:uint64;
cd:char;
begin
readln(s);
n:=length(s);
if n>1 then resuls:=1 shl n-2 else resuls:=0; 
for I:=1 to n do begin
  cd:=s[i];
  d:=IntToStr(Ord(cd)-48);
  if (StrToInt(d)<4)
    then begin
      j:=i-1;
      repeat
      if num[j]=7 then begin
      num[j]:=4;
      for k:=j+1 to n do
        num[k]:=7;
        break;
       end;
       j:=j-1;
       until j>=0;
       break;
       end;
       if (StrToint(d)>4)and(StrToint(d)<7) then begin
       num[i]:=4;
       for j:=i+1 to n do
        num[j]:=7;
        break;
        end;
        if StrToint(d)>7 then begin
        for j:=i to n do
          num[j]:=7;
          break;
          end;
          num[i]:=StrToint(d);
         end;
         if StrToint((d[n-1]))=0 then begin
          if StrToInt(d[n-1]) mod 2=4 then res:=StrToInt(d[i-1]);
          i:=n-2;
          repeat
            if (num[i]=7)
              then res:=res+StrToInt(d[n-1-i]);
            resuls:=resuls+res;
            i:=i-1;
            until i>=0;
            end;
            write(resuls);
end.