Найти все пары натуральных дружественных чисел, меньших 10000

@CyberGame · Регистрация: 27.07.2018

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

Составьте программу для решения задачи. Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается). Например, 220 (1+2+4+5+10+11+20+22+44+55+110=284) и 284 (1+2+4+71+142=220) – дружественные числа. Пары необходимо выводить по одной в строке, разделяя пробелами.

Найти все пары натуральных дружественных чисел, меньших 10 000.

Формат вывода
На каждой строке пара натуральных дружественных чисел, числа в паре расположены в порядке возрастания.

@orAnd · 06.11.2018, 18:06

Python
1
2
3
4
5
6
7
8
def sumfact(n):
    return sum(i for i in range(1, n) if n % i == 0)
 
 
for i in range(10000):
    s = sumfact(i)
    if s > i and sumfact(s) == i:
        print(i, s)

@CyberGame · 06.11.2018, 19:09 **[ТС]**

orAnd, без функции не как? Просто мы это не проходили?

@orAnd · 06.11.2018, 19:27

Python
1
2
3
4
for n in range(10000):
    s = sum(i for i in range(1, n) if n % i == 0)
    if s > n and sum(i for i in range(1, s) if s % i == 0) == n:
        print(n, s)

@CyberGame · 06.11.2018, 19:32 **[ТС]**

orAnd,
s = sum(i for i in range(1, n) if n % i == 0)
Вот это конструкцию мы не проходили, конкретнее "sum" и что if... ( после цикла , мы изучали только отдельно ).

@Vaguk · 06.11.2018, 19:38

)скажешь что сам выучил, тебе +

@CyberGame · 06.11.2018, 19:42 **[ТС]**

Vaguk, задачки проверяют на сайте, один раз сказали что мы это не проходили переделывай.

@Vaguk · 06.11.2018, 19:46

CyberGame, понятно, а я учусь на заочке, нам задали многомерные списки но материал по ним не дали, ищите сами. Поэтому решаю задачи по тому что нашёл.

@CyberGame · 06.11.2018, 19:49 **[ТС]**

Vaguk, да я вообще хз, иногда задание не понятно и хз как реализовать, а у препода спросить нельзя ибо это доп задания.

@orAnd · 06.11.2018, 21:01

CyberGame, это генераторное выражение.

Python
1
print(sum(i for i in range(1, n) if n % i == 0))

эквивалентно

Python
1
2
3
4
5
result = 0
for i in range(1, n):
    if n % i == 0:
        result += i
print(result)

если задание необходимо выполнить "в стиле pascal", то можешь всё позаменять. Надеюсь это не вызовет сложностей.

@CyberGame · 06.11.2018, 21:50 **[ТС]**

orAnd, Как это записать то?

@orAnd · 06.11.2018, 21:57

Python
1
2
3
4
5
6
7
8
9
10
11
12
for n in range(10000):
    s = 0
    for i in range(1, n):
        if n % i == 0:
            s += i
    if s > n:
        result = 0
        for i in range(1, s):
            if s % i == 0:
                result += i
        if result == n:
            print(n, s)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@CyberGame 208 / 95 / 15 Регистрация: 27.07.2018 Сообщений: 323

	Найти все пары натуральных дружественных чисел, меньших 10000 06.11.2018, 17:00. Показов 26343. Ответов 11 Метки нет (Все метки) Составьте программу для решения задачи. Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается). Например, 220 (1+2+4+5+10+11+20+22+44+55+110=284) и 284 (1+2+4+71+142=220) – дружественные числа. Пары необходимо выводить по одной в строке, разделяя пробелами. Найти все пары натуральных дружественных чисел, меньших 10 000. Формат вывода На каждой строке пара натуральных дружественных чисел, числа в паре расположены в порядке возрастания. 0

@CyberGame 208 / 95 / 15 Регистрация: 27.07.2018 Сообщений: 323
	06.11.2018, 19:09 [ТС]
	orAnd, без функции не как? Просто мы это не проходили? 0

@CyberGame 208 / 95 / 15 Регистрация: 27.07.2018 Сообщений: 323
	06.11.2018, 19:32 [ТС]
	orAnd, s = sum(i for i in range(1, n) if n % i == 0) Вот это конструкцию мы не проходили, конкретнее "sum" и что if... ( после цикла , мы изучали только отдельно ). 0

@Vaguk 0 / 0 / 0 Регистрация: 06.11.2018 Сообщений: 74
	06.11.2018, 19:38
	)скажешь что сам выучил, тебе + 0

@CyberGame 208 / 95 / 15 Регистрация: 27.07.2018 Сообщений: 323
	06.11.2018, 19:42 [ТС]
	Vaguk, задачки проверяют на сайте, один раз сказали что мы это не проходили переделывай. 0

@Vaguk 0 / 0 / 0 Регистрация: 06.11.2018 Сообщений: 74
	06.11.2018, 19:46
	CyberGame, понятно, а я учусь на заочке, нам задали многомерные списки но материал по ним не дали, ищите сами. Поэтому решаю задачи по тому что нашёл. 0

@CyberGame 208 / 95 / 15 Регистрация: 27.07.2018 Сообщений: 323
	06.11.2018, 19:49 [ТС]
	Vaguk, да я вообще хз, иногда задание не понятно и хз как реализовать, а у препода спросить нельзя ибо это доп задания. 0

@CyberGame 208 / 95 / 15 Регистрация: 27.07.2018 Сообщений: 323
	06.11.2018, 21:50 [ТС]
	orAnd, Как это записать то? 0