0 / 0 / 0
Регистрация: 18.11.2020
Сообщений: 42

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр

03.05.2021, 22:05. Показов 2130. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как написать через подпрограмму, можете подсказать или код написать, а только через рекурсию получилось
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 static bool func_1(int m)
          {
               if (m == 0) return true;
               else
               {
                    if (m % 10 == 0)
                         throw new Exception("Нельзя делить на 0");
                    return (m % (m % 10) == 0 && func_1(m / 10));
               }
          }
 
          private void button1_Click(object sender, EventArgs e)
          {
               int n = Convert.ToInt32(number.Text);
               list.Items.Clear();
               for (int i = 1; i <= n; i++)
               {
                    try
                    {
                         if (func_1(i))
                         {
                              list.Items.Add(i);
                         }
                    }
                    catch (Exception r)
                    {
                         MessageBox.Show(r.Message);
                    }
               }
          }
Добавлено через 47 секунд
P.S.:Нужно именно подпрограмму написать для задания
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.05.2021, 22:05
Ответы с готовыми решениями:

Как подсчитать все натуральные числа массива, которые меньше М и которые делятся на каждую из своих цифр
Как подсчитать все натуральные числа данного массива, которые меньше М и которые делятся на каждую из своих цифр в данном коде: namespace...

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр
Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр
Найти все натуральные числа. не превосходящие заданного n, которые делятся на каждую из своих цифр. Помогите, пожалуйста написать код ....

1
3566 / 2507 / 1174
Регистрация: 14.08.2016
Сообщений: 8,219
03.05.2021, 23:46
Лучший ответ Сообщение было отмечено nyxnyxnyx как решение

Решение

ну, а если в числе, таки, присутствует 0, это число заведомо не подходит или просто проигнорировать этот 0?
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        public static bool IsDivisibleByOwnDigits(int n)
        {
            var div = default(int);
            var num = n;
            while (num != 0)
            {
                div = num % 10;
                if (div == 0) /*continue; */return false; // /*если игнорировать нули*/ если нули не допускать
                if (n % div != 0) return false;
                num /= 10;
            }
            return true;
        }
        static void Main(string[] args)
        {
            for (int i = 1; i < 1000; i++)
            {
                if (IsDivisibleByOwnDigits(i)) Console.WriteLine(i);
            }
        }
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.05.2021, 23:46
Помогаю со студенческими работами здесь

Найти все натуральные числа, не превосходящие заданного N, которые делятся на каждую из своих цифр
Помогите решить!!!

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр
Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.

For. найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.
1.найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр! 2.составить алгоритм решения...

Найти все натуральные числа,не превосходящие заданного n,которые делятся на каждую из своих цифр.
Найти все натуральные числа,не превосходящие заданного n,которые делятся на каждую из своих цифр.

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр
2. Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.


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

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

Новые блоги и статьи
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru