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

Среди чисел 1, ..., n найти все такие, которые делятся без остатка на 3, 5, 7, 9

21.12.2011, 19:32. Показов 1417. Ответов 4
Метки нет (Все метки)

Дано натуральное число n. Среди чисел 1, ..., n найти все такие, которые делятся без остатка на 3, 5, 7, 9. Нахождение кратных чисел оформить в виде процедуры.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2011, 19:32
Ответы с готовыми решениями:

Вычислить среднее арифметическое тех положительных элементов массива, которые делятся на 4 без остатка
Помогите пожалуйста составить программу на qbasik. Дан одномерный массив С1,С2,K,Сn. Вычислить...

Среди чисел 1, 2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел
Вот такая вот задачка: Дано натуральное число n. Среди чисел 1, 2, …, n найти все те, которые...

Найти все делители числа, которые делятся на 3
1. Дано натуральное число n. Найти все делители этого числа, которые делятся на 3.

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

4
Платежеспособный зверь
8748 / 4181 / 1606
Регистрация: 28.10.2009
Сообщений: 11,320
22.12.2011, 00:08 2
Какая тут процедура в примитивной задаче?

PureBasic
1
2
3
4
input n
for i=1 to n
if i mod 5*7*9=0 then print i;
next
Или тебе по отдельности надо?
0
4840 / 1514 / 395
Регистрация: 25.04.2010
Сообщений: 4,288
Записей в блоге: 1
22.12.2011, 02:18 3
Скорее всего это имеется в виду...
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  DECLARE FUNCTION Kratnost% (Vl&)
 
CLS
INPUT "Vvedite predel: ", n
  FOR i& = 1 TO n
     IF Kratnost%(i&) = 1 THEN PRINT i&,
  NEXT
 
FUNCTION Kratnost% (Vl&)
  IF Vl& MOD 315 = 0 THEN
     Kratnost% = 1
  ELSE Kratnost% = 0
  END IF
END FUNCTION
0
Платежеспособный зверь
8748 / 4181 / 1606
Регистрация: 28.10.2009
Сообщений: 11,320
22.12.2011, 17:36 4
Скорее всего, имеется ввиду отдельно напечатать числа, делящиеся на 3, отдельно на 5 и т.д.
Иначе зачем искать делящиеся на 3 и 9 одновременно.
думаю так: перебираются числа 3, 5, 7, 9 и для каждого срабатывает процедура, печатающая числа
0
0 / 0 / 0
Регистрация: 21.12.2011
Сообщений: 6
22.12.2011, 21:24  [ТС] 5
не получается(

Добавлено через 28 минут
Basic после ввода повис и отказывается что либо выводить
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2011, 21:24

Среди всех двухзначных чисел вывести те, которые делятся на 3 без остатка
Напишите, как сделать деление на 3 без остатка. А ещё, почему не работает? Выдает ошибку C2061 на...

Среди всех двузначных чисел вывести те, которые делятся на 8 без остатка
здравствуйте, помогите пожалуйста решить задание , очень вас об этом прошу!! мне надо создать три...

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

Среди всех двузначных чисел вывести на экран те, которые делятся на 11 без остатка
Среди всех двузначных чисел вывести на экран те, которые делятся на 11 без остатка. Нужны: цикл с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.