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

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

Новые блоги и статьи Все статьи Все блоги /
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026

Опции темы