Делимость числа на 7 - QBasic

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

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

В качестве алгоритма используется формула N = 10A + B = 3A + B
Листинг программы
  1. REM
  2. REM 10A + B = 3A + B [7]
  3. REM
  4. CLS
  5. DIM N AS LONG
  6. DIM A AS LONG
  7. DIM B AS LONG
  8. INPUT "N = "; N
  9. DO
  10. B = N MOD 10
  11. A = 3 * (N \ 10)
  12. N = A + B
  13. LOOP UNTIL N <= 9
  14. IF N = 7 THEN PRINT "YES" ELSE PRINT "NO"
  15. END

Решение задачи: «Делимость числа на 7»

textual
Листинг программы
  1. CLS
  2. DIM N AS LONG
  3. INPUT "N = "; N
  4. IF N MOD 7 = 0 THEN PRINT "YES" ELSE PRINT "NO"
  5. END

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

  1. CLS - очистка экрана
  2. DIM N AS LONG - определение переменной N типа LONG (целое число)
  3. INPUT N =; N - ввод числа N с клавиатуры
  4. IF N MOD 7 = 0 THEN PRINT YES ELSE PRINT NO - проверка делимости числа N на 7
  5. END - конец программы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

8   голосов , оценка 3.875 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы