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

Формулировка задачи:

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

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

Код к задаче: «Найти количество чисел (от 1 до миллиона), среди цифр которых есть 3 - QBasic»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Полезно ли:

15 голосов, оценка 4.000 из 5

СОХРАНИТЬ ССЫЛКУ