DECLARE FUNCTION M! (i!)
CLS
DIM SHARED A AS STRING
 
INPUT "A = "; A
 
FOR i = 1 TO LEN(A)
   S = S + M(i)
NEXT i
 
IF S MOD 3 THEN PRINT "NO" ELSE PRINT "YES"
IF S MOD 9 THEN PRINT "NO" ELSE PRINT "YES"
END
 
FUNCTION M (i)
   M = VAL(MID$(A, i, 1))
END FUNCTION

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.05.2016, 14:21

Ответы с готовыми решениями:

Делимость числа на 7
В качестве алгоритма используется формула N = 10A + B = 3A + B REM REM 10A + B = 3A + B ...

Делимость на 4 числа <= 10^18
Есть число n, которое не превышает 10^18. Нужно проверить делимость данного числа на 4. Имеет ли...

Определить делимость числа
Дано целое число М. Определить делиться ли М нацело на 9. Сумма цифр М должна делиться нацело на 9

Доказать делимость числа
Доказать что 3419-34 делится на 17.

	13.05.2016, 14:21

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.05.2016, 14:21

Помогаю со студенческими работами здесь

Использование функций: делимость числа на 11
Для делимости числа на 11, необходимо, чтобы разность между суммой цифр, стоящих на четных местах,...

Проверить делимость числа на три
Число делиться на 3,если сумма его цифр делиться на 3 .Проверить этот признак на примере заданного...

Проверить делимость заданного числа на 3
Проверить делимость заданного числа на 3

Проверяем делимость введеного числа n на d
проверям делимость веденого числа n на d using System; namespace dfg { class Program {...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх