Делимость числа на 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»

Листинг программы

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 PRINT NO - проверка делимости числа N на 7
END - конец программы

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

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

Похожие ответы