Найти количество чисел (от 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
СОХРАНИТЬ ССЫЛКУ