Функции и процедуры. Напечатать все пары "дружественных" чисел

@Vasyl_Rizhko · Регистрация: 15.11.2020

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

Пожалуйста код и блок схему
Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, кроме его самого (такие, например, как числа 220 и 284). Напечатать все пары "дружественных" чисел, не превышающих заданного натурального числа.

@JuriiMW · 15.12.2020, 10:17

Pascal
1
2
3
4
5
function delim(n:Integer):Integer;var i,s:Integer;begin s:=0;for i:=1 to n div 2 do if n mod i=0 then inc(s,i);delim:=s;end;
var n:Integer;
begin
  Read(n); for n:=1 to n do if (delim(n)<>n)and(delim(delim(n))=n)and(delim(n)>n)then WriteLn(n,#32,delim(n));
end.

@Vasyl_Rizhko · 15.12.2020, 20:18 **[ТС]**

Спасибо

@Vasyl_Rizhko · 16.12.2020, 16:02 **[ТС]**

JuriiMW, можно пожалуйста блок схему?

@JuriiMW · 16.12.2020, 18:13

Блок — запросто!
Нападайте!

А схему чего?

@Vasyl_Rizhko · 16.12.2020, 19:05 **[ТС]**

JuriiMW, блок-схему кода

@JuriiMW · 17.12.2020, 04:31

Можно.
Разрешаю!

@Cyborg Drone · 24.12.2020, 01:38

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике 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. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Vasyl_Rizhko 0 / 0 / 0 Регистрация: 15.11.2020 Сообщений: 19

	Функции и процедуры. Напечатать все пары "дружественных" чисел 14.12.2020, 18:25. Показов 942. Ответов 7 Метки нет (Все метки) Пожалуйста код и блок схему Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, кроме его самого (такие, например, как числа 220 и 284). Напечатать все пары "дружественных" чисел, не превышающих заданного натурального числа. 0

@Vasyl_Rizhko 0 / 0 / 0 Регистрация: 15.11.2020 Сообщений: 19
	15.12.2020, 20:18 [ТС]
	Спасибо 0

@Vasyl_Rizhko 0 / 0 / 0 Регистрация: 15.11.2020 Сообщений: 19
	16.12.2020, 16:02 [ТС]
	JuriiMW, можно пожалуйста блок схему? 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	16.12.2020, 18:13
	Блок — запросто! Нападайте! А схему чего? 0

@Vasyl_Rizhko 0 / 0 / 0 Регистрация: 15.11.2020 Сообщений: 19
	16.12.2020, 19:05 [ТС]
	JuriiMW, блок-схему кода 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	17.12.2020, 04:31
	Можно. Разрешаю! 0

@Cyborg Drone Модератор 10448 / 5739 / 3407 Регистрация: 17.08.2012 Сообщений: 17,461
	24.12.2020, 01:38
	0