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


textual

Код к задаче: «Делимость числа на 7 - QBasic»

CLS
DIM N AS LONG
INPUT "N = "; N
IF N MOD 7 = 0 THEN PRINT "YES" ELSE PRINT "NO"
END
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник