Вопрос по информатике:
Дружественные числа – это два натуральных числа, таких, что сумма всех делителей одного числа (меньших самого этого числа) равна другому числу, и наоборот. Найдите все пары дружественных чисел, каждое из которых меньше 10000. Используйте функцию, которая вычисляет сумму делителей числа.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.11.2015 14:27
- Информатика
- remove_red_eye 16155
- thumb_up 23
Ответы и объяснения 1
//Pascal ABC.NET v3.0 сборка 1111
Var
j,i:integer;
function Abso(n:integer):integer;
Var
i,k:integer;
begin
k:=0;
for i:=1 to n div 2 do
if n mod i=0 then k:=k+i;
Abso:=k;
end;
begin
for i:=1 to 10000 do
for j:=1 to 10000 do
if (i=Abso(j)) or (j=Abso(i)) then writeln(i,' ',j);
end.
- 01.01.1970 00:00
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.