Найти количество чисел (от 1 до миллиона), среди цифр которых есть 3

echs · Регистрация: 23.10.2013

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

Даны натуральные числа от 1 до 1 000 000.
Сосчитать, сколько чисел содержат в своем написании
цифру 3.
решение
если вы посмотрите программу, то в строке 12 увидите, вместо
цифры 3, цифру 7. (!!) и подумаете - "опечатка".
Нет. Всё верно. Цифра 3 при записанном условии даст неверный
результат. Почему?
надо отметить, что все цифры (кроме 0) равноценны и их количество
одинаково. Так почему автор поставил 7?

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
REM
REM  N = 737855
REM
 
CLS
FOR x = 0 TO 9
FOR y = 0 TO 9
FOR z = 0 TO 9
FOR u = 0 TO 9
FOR v = 0 TO 9
FOR w = 0 TO 9
   IF x * y * z * u * v * w MOD 7 = 0 THEN
      N = N + 1
   END IF
NEXT w, v, u, z, y, x
  
PRINT N - 1
END

@кот Бегемот · 15.01.2017, 18:10

решение неверно, потому что 0*0*0*0*0*0 mod 7 даёт 0.
А цифры 3 тут нет.

echs · 15.01.2017, 19:25 **[ТС]**

кот Бегемот
Отлично!! Одно условие я просмотрел.
В других программах поставил, а тут прокол.
есть одно НО
Строка 17 печатает число на N - 1.
То есть условие и не нужно

@m-ch · 15.01.2017, 22:28

0*1*1*1*1*1*1 mod 7 также равно нулю

вариант:

QBasic/QuickBASIC
1
2
3
4
5
DIM i AS LONG, n AS LONG
FOR i = 1 TO 999999
    IF INSTR(STR$(i), "3") THEN n = n + 1
NEXT i
PRINT n

если уж хочется считать конкретную цифру, то лучше для этого использовать "0"

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
FOR x = 0 TO 9
FOR y = 0 TO 9
FOR Z = 0 TO 9
FOR u = 0 TO 9
FOR v = 0 TO 9
FOR w = 0 TO 9
   IF x * y * Z * u * v * w = 0 THEN n = n + 1
NEXT w, v, u, Z, y, x
PRINT n

echs · 16.01.2017, 10:20 **[ТС]**

m-ch
СПАСИБО! Вы всегда, когда приходите в мою тему,
даёте глубокий аналитический анализ программному
решению задачи. Кроме того, выдаете много ценного
материала по избежанию ошибок в будущем и даже
читаете мои мысли, в которых я и сам не разобраться
не могу. СПАСИБО!!!

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

Найти количество чисел (от 1 до миллиона), среди цифр которых есть 3

Решение

Решение

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	15.01.2017, 18:10
	Сообщение было отмечено echs как решение Решение решение неверно, потому что 00000*0 mod 7 даёт 0. А цифры 3 тут нет. 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	15.01.2017, 19:25 [ТС]
	кот Бегемот Отлично!! Одно условие я просмотрел. В других программах поставил, а тут прокол. есть одно НО Строка 17 печатает число на N - 1. То есть условие и не нужно 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	16.01.2017, 10:20 [ТС]
	m-ch СПАСИБО! Вы всегда, когда приходите в мою тему, даёте глубокий аналитический анализ программному решению задачи. Кроме того, выдаете много ценного материала по избежанию ошибок в будущем и даже читаете мои мысли, в которых я и сам не разобраться не могу. СПАСИБО!!! 0