Делимость числа на 7 - QBasic
Формулировка задачи:
В качестве алгоритма используется формула N = 10A + B = 3A + B
Листинг программы
- REM
- REM 10A + B = 3A + B [7]
- REM
- CLS
- DIM N AS LONG
- DIM A AS LONG
- DIM B AS LONG
- INPUT "N = "; N
- DO
- B = N MOD 10
- A = 3 * (N \ 10)
- N = A + B
- LOOP UNTIL N <= 9
- IF N = 7 THEN PRINT "YES" ELSE PRINT "NO"
- END
Решение задачи: «Делимость числа на 7»
textual
Листинг программы
- CLS
- DIM N AS LONG
- INPUT "N = "; N
- IF N MOD 7 = 0 THEN PRINT "YES" ELSE PRINT "NO"
- END
Объяснение кода листинга программы
- CLS - очистка экрана
- DIM N AS LONG - определение переменной N типа LONG (целое число)
- INPUT
N =
; N - ввод числа N с клавиатуры - IF N MOD 7 = 0 THEN PRINT
YES
ELSE PRINTNO
- проверка делимости числа N на 7 - END - конец программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д