Процедуры: Найти все пары дружественных чисел, не больших данного числа К

@Лилька · Регистрация: 30.05.2010

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

Решите пожалуйста задачу: Найти все пары дружественных чисел которые не больше данного числа К.

@mamedovvms · 31.05.2010, 14:59

что такое пары дружественных чисел

@AnDrew_LP · 31.05.2010, 15:30

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
 i,j,n:integer;
function sum(a:integer):integer;
var i:byte;
s:integer;
begin
s:=0;
 for i:=1 to a div 2 do
  if a mod i=0 then s:=s+i;
 sum:=s;
end;
begin
 readln(n);
for i:=1 to n do
 for j:=1 to n do
  if (sum(j)=i)and(sum(i)=j) then writeln(i,' ',j);
readln;
end.

P.S.есть повторы типа "220 284" и "284 220" и выводит совершенные числа("6 6")
Если надо без этого, могу запросто переделать

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа 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. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@Лилька 0 / 0 / 0 Регистрация: 30.05.2010 Сообщений: 11

	Процедуры: Найти все пары дружественных чисел, не больших данного числа К 31.05.2010, 14:56. Показов 1642. Ответов 2 Метки нет (Все метки) Решите пожалуйста задачу: Найти все пары дружественных чисел которые не больше данного числа К. 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	31.05.2010, 14:59
	что такое пары дружественных чисел 0

Процедуры: Найти все пары дружественных чисел, не больших данного числа К

Решение