Найти натуральные числа которые равны сумме факториалов их цифр

@Надюша Малачлы · Регистрация: 03.12.2016

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

помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят.
пример: 145=1!+4!+5!

@Шамсудин · 27.01.2017, 00:07

Удовлетворены ли вы кодом, (я так понял ввели 145 и получили нужный результат)?

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
31
32
33
34
#include <iostream>
 
using std::cout;
using std::endl;
using std::cin;
 
void main()
{
    int x;
    cin >> x;
    int counter = 1;
 
    for(int i=2;i<x;i ++)
    {
        bool flag = true;
 
        for(int b=2;b<i;b++)
        {
            if(i % b == 0)
                flag = false;
            if(!flag)
                break;
        }
 
        if(flag == true)
        {
            cout << counter << ". " << i << endl;
            counter++;
        }
    
    }
        
    
}

@Notoriously · 27.01.2017, 00:47

Сообщение от Надюша Малачлы

помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят.
пример: 145=1!+4!+5!

Нет,ну MAXINT на современных системах это 2 с лишним миллиарда, то есть,тоже самое,что long int. А факторионов всего 4 или же 5, если считаем нуль. Здесь нуль считаем и код будет выполняться минут 20 на слабой системе, так как это просто решение в лоб. Правда,после того,как там появляется число 40585,ждать больше нечего.

Кликните здесь для просмотра всего текста

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#include <iostream>
#include <limits.h>
 
int factorial(short number);
long count_sum(int number);
int main()
{
    for (int number = 0; number < INT32_MAX; number++)
    {
        if (number == count_sum(number))
        {
            std::cout << number << std::endl;
        }
 
    }
    
 
    system("pause");
    return 0;
}
 
int factorial(short number)
{
    int fact = 1;
    for (int counter = 1; counter <= number; counter++)
    {
        fact *= counter;
    }
    return fact;
}
 
long count_sum(int number)
{
    int digit = 0;
    int sum_of_digits = 0;
 
    while (number)
    {
        digit = number % 10;
        sum_of_digits += factorial(digit);
        number /= 10;
    }
 
    return sum_of_digits;
 
}

@TheCalligrapher · 27.01.2017, 02:36

Сообщение от Notoriously

Нет,ну MAXINT на современных системах это 2 с лишним миллиарда, то есть,тоже самое,что long int.

Размеры типов не зависят от "системы", а определяются компилятором. В компиляторах GCC int - это 32-битный тип, а long int - 64-битный. Так что никакого "тоже самое".

@Шамсудин · 27.01.2017, 12:45

TheCalligrapher, а не проще использовать "int64_t"?

C++
1
2
3
4
5
6
7
8
//Или к примеру так.
 
#if __WORDSIZE == 64
typedef unsigned long int  uint64_t;
#else
__extension__
typedef unsigned long long int  uint64_t;
#endif

@TheCalligrapher · 27.01.2017, 13:12

Сообщение от Шамсудин

а не проще использовать "int64_t"

Может быть и проще. Однако надо помнить, что существование таких типов с точными размерами - не гарантируется языком.

@Шамсудин · 27.01.2017, 13:21

TheCalligrapher, Ну да согласен!

@Надюша Малачлы · 27.01.2017, 14:41 **[ТС]**

да ,проще взять integer, но мне нужно на языке паскаль

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Надюша Малачлы 0 / 0 / 0 Регистрация: 03.12.2016 Сообщений: 12

	Найти натуральные числа которые равны сумме факториалов их цифр 26.01.2017, 23:57. Показов 2275. Ответов 7 Метки нет (Все метки) помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят. пример: 145=1!+4!+5! 0

@Шамсудин 0 / 0 / 3 Регистрация: 26.01.2017 Сообщений: 16
	27.01.2017, 13:21
	TheCalligrapher, Ну да согласен! 0

@Надюша Малачлы 0 / 0 / 0 Регистрация: 03.12.2016 Сообщений: 12
	27.01.2017, 14:41 [ТС]
	да ,проще взять integer, но мне нужно на языке паскаль 0