Найти количество четырехзначных чисел по условию - QBasic

Узнай цену своей работы

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

Найти число четырехзначных чисел таких, что цифры одной четности рядом не стоят и сумма этих цифр не превышает 5. (ответ 102 числа) Вопрос Можно ли решить задачу иначе?

Решение задачи: «Найти количество четырехзначных чисел по условию»

textual
Листинг программы
DIM a AS LONG, b AS LONG, c AS LONG, d AS LONG, k AS LONG
FOR a = 1 TO 5
FOR b = 0 TO 5
FOR c = 0 TO 5
FOR d = 0 TO 5
    IF (a + b) * (b + c) * (c + d) MOD 2 = 1 AND a + b <= 5 AND b + c <= 5 AND c + d <= 5 THEN k = k + 1
NEXT d, c, b, a
PRINT k

Объяснение кода листинга программы

  1. DIM a AS LONG, b AS LONG, c AS LONG, d AS LONG, k AS LONG — в этой строке объявляются переменные a, b, c, d и k типа LONG (целые числа со знаком).
  2. FOR a = 1 TO 5 — начинается цикл по переменной a от 1 до 5.
  3. FOR b = 0 TO 5 — начинается цикл по переменной b от 0 до 5.
  4. FOR c = 0 TO 5 — начинается цикл по переменной c от 0 до 5.
  5. FOR d = 0 TO 5 — начинается цикл по переменной d от 0 до 5.
  6. IF (a + b) (b + c) (c + d) MOD 2 = 1 AND a + b <= 5 AND b + c <= 5 AND c + d <= 5 THEN k = k + 1 — выполняется проверка условия: — Сначала проверяется, является ли трехчлен (a+b)(b+c)(c+d) нечетным (MOD 2=1). — Затем проверяется, что сумма трех переменных (a+b, b+c, c+d) не превышает 5. — Если все условия выполняются, то значение переменной k увеличивается на 1.
  7. NEXT d, c, b, a — выполняется переход к следующему шагу цикла по переменной d, затем по переменной c, затем по переменной b и, наконец, по переменной a.
  8. PRINT k — выводится значение переменной k.

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы