0 / 0 / 0
Регистрация: 13.11.2018
Сообщений: 4
1

Вывести числа, которые делятся без остатка на 5 и не делятся на 7 и на 11

13.11.2018, 19:26. Показов 878. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите создать программу , которая выводит все числа от a до b , которые делятся без остатка на 5 и не делятся на 7 и на 11
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2018, 19:26
Ответы с готовыми решениями:

Программа на паскале - Найдите сумму натуральных чисел от 1 до 1000, которые делятся без остатка на 7 и не делятся без остатка на 13
Требовалось решить задачу по математике: Найдите сумму натуральных чисел от 1 до 1000, которые...

Посчитать произведение чисел из 5 заданных, которые делятся без остатка на 3 и не делятся без остатка на 5
Написать программу, которая введет 5 значений и посчитает произведение чисел, которые делятся без...

Вывести числа в диапазоне от 0 до 500.которые делятся на 5 без остатка
создать программу которая выводит на экран числа в диапазоне от 0 до 500.которые делятся на 5 без...

Вывести в цикле те цифры числа, которые не делятся на 3 без остатка.
Вывести только те цифры числа, которые не делятся на 3 без остатка.

2
Модератор
Эксперт функциональных языков программированияЭксперт Python
37038 / 20492 / 4244
Регистрация: 12.02.2012
Сообщений: 33,853
Записей в блоге: 13
13.11.2018, 19:50 2
В лоб:

Lisp
1
2
3
4
5
6
7
8
9
10
(defun task (a b &optional (r nil))
  (if (= a b) r (if (and (zerop (mod b 5)) (> (mod b 7) 0) (> (mod b 11) 0)) 
                      (task a (- b 1) (cons b r))
                      (task a (- b 1) r))))
 
==> TASK
 
(task 12 56)
 
==> (15 20 25 30 40 45 50)
1
4699 / 4394 / 380
Регистрация: 12.05.2012
Сообщений: 3,096
13.11.2018, 22:03 3
как вариант:
Lisp
1
2
3
4
5
6
7
8
9
(defun chosen (n m)
  (loop for e from n to m
        when (and (zerop (mod e 5))
                  (plusp (mod e 7))
                  (plusp (mod e 11)))
        collect e))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)
Добавлено через 4 минуты
Lisp
1
2
3
4
5
6
7
8
9
(defun chosen (n m)
  (cond ((> n m) nil)
        ((and (zerop (mod n 5))
              (plusp (mod n 7))
              (plusp (mod n 11))) (cons n (chosen (1+ n) m)))
        (t (chosen (1+ n) m))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
8
9
(defun chosen (n m)
  (when (>= m n) (if (and (zerop (mod n 5))
                          (plusp (mod n 7))
                          (plusp (mod n 11)))
                     (cons n (chosen (1+ n) m))
                     (chosen (1+ n) m))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
8
9
(defun chosen (n m &optional ac)
  (cond ((> n m) (nreverse ac))
        ((and (zerop (mod n 5))
              (plusp (mod n 7))
              (plusp (mod n 11))) (chosen (1+ n) m (cons n ac)))
        (t (chosen (1+ n) m ac))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)
Добавлено через 8 минут
Lisp
1
2
3
4
5
6
7
8
9
(defun chosen (n m &optional ac)
  (cond ((> n m) ac)
        ((and (zerop (mod m 5))
              (plusp (mod m 7))
              (plusp (mod m 11))) (chosen n (1- m) (cons m ac)))
        (t (chosen n (1- m) ac))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)
Добавлено через 3 минуты
Lisp
1
2
3
4
5
6
7
8
9
10
(defun chosen (n m &optional ac)
  (if (> n m) ac
      (chosen n (1- m) (if (and (zerop (mod m 5))
                                (plusp (mod m 7))
                                (plusp (mod m 11)))
                           (cons m ac)
                           ac))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)
1
13.11.2018, 22:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2018, 22:03
Помогаю со студенческими работами здесь

Вывести все числа из диапазона от 0 до 1000, которые делятся на 2 и на 3 без остатка (for, while)
Напишите программу которая выводит все числа из диапазона от 0 до 1000 которая делятца на 2 и на 3...

Вывести те числа, которые делятся без остатка на цифры, из которых состоят
Здравствуйте) Вот суть задания: Есть целые числа от 10 до 999, нужно вывести те числа, которые...

Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3
Ребят помогите пожалуйста с двумя задачами "одномерные массивы" 1)Ввести одномерный массив A из...

Вывести все натуральные числа и записать числа которые делятся на 17 без остатка
Задание, вывести все натуральные числа и записать числа которые делятся на 17 без остатка, как...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru