Найдите сумму чисел

@Ronaldo7 · Регистрация: 05.12.2010

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

найдите сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 и 8

@helter · 26.10.2014, 13:57

402

Тему можно закрывать.

@Catstail · 26.10.2014, 16:47

Lisp

Действительно:
 
(defun task ()
  (let ((r 0))
   (iter (for i from 21 to 99 by 3) (when (member (% i 10) '(2 4 8)) (summing i into r)))
   r))  
 
==> task
 
(task)
 
==> 402

@Ronaldo7 0 / 0 / 0 Регистрация: 05.12.2010 Сообщений: 17
		1
	Найдите сумму чисел 26.10.2014, 13:53. Показов 1396. Ответов 2 Метки нет (Все метки) найдите сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 и 8 0

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	26.10.2014, 13:57	2
	402 Тему можно закрывать. 1

	26.10.2014, 16:47

Опции темы

Найдите сумму чисел

Решение