Определить не применяя операцию отыскивания остатка делится ли трехзначное число на 3 и 9

@graew · Регистрация: 23.04.2022

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста решить задание на LISP
Заданно два трехзначных числа. Определить, не применяя операцию отыскивания остатка делится ли число на 3 и на 9, используя следующий признак: сумма цифр делится на 3 и на 9 соответственно( а любое число делится само на себя).

@Catstail · 23.04.2022, 15:12

HomeLisp:

Lisp

(defun is-div-by-3 (n)
  (if (member (apply '+ (explode n)) '(3 6 9 12 15 18 21 24 27)) t nil))
 
(is-div-by-3 567)
==> T
 
(
is-div-by-3 565)
==> NIL
 
(defun is-div-by-9 (n)
 (if (member (apply '+ (explode n)) '(9 18 27)) t nil))
 
(is-div-by-9 567)
==> T
 
(is-div-by-9 568)
==> NIL

Применяй эту функцию к первому и второму числу...

@graew 0 / 0 / 0 Регистрация: 23.04.2022 Сообщений: 4
		1
	Определить не применяя операцию отыскивания остатка делится ли трехзначное число на 3 и 9 23.04.2022, 13:21. Показов 488. Ответов 1 Метки lisp (Все метки) Помогите, пожалуйста решить задание на LISP Заданно два трехзначных числа. Определить, не применяя операцию отыскивания остатка делится ли число на 3 и на 9, используя следующий признак: сумма цифр делится на 3 и на 9 соответственно( а любое число делится само на себя). 0

	23.04.2022, 15:12