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

@Mikstereo · Регистрация: 05.11.2018

Студворк — интернет-сервис помощи студентам

Все знают, что счастливые числа - это те числа, которые содержат только счастливые цифры 7 и/или 4. Вам нужно найти количество счастливых чисел не больших N.
Входные данные:В единственной строке входного потока записано натуральное число N, не превышающее 10³².
Пример входного файла (input.txt):
56
Выходные данные:В единственную строку выходного потока нужно вывести одно целое число.
Пример выходного файла (output.txt):
4
Мой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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.

Дело в том,что не работает на больших числах или зацикливается(работает слишком долго),как реализовать это для больших чисел?Слышал что-то про степени двойки,но конкретной закономерности не нашел.Помогите пожалуйста.

@Mikstereo · 26.11.2018, 14:33 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
var s:string;
   N,i,g:int64;
begin
  readln(n);
  for I:=n div 10 to n do
  if (i mod 10=4) or (i mod 10=7) then str(i,s);
  n:=0;
for i:=1 to Length(s) do 
n:=n shl 1+1+Ord(s[i]='7');
writeln(n+1);
end.

Опять получается что-то не-то,посмотрите.

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .