Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 02.12.2018
Сообщений: 7

Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого

02.12.2018, 19:08. Показов 6480. Ответов 0
Метки программирование. паскаль (Все метки)
Студворк — интернет-сервис помощи студентам
Требуется описать структуру программы приведенной ниже, нужно описать ее словесно, чтобы было понятно, заранее благодарю!

Сама программа:

Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается). Найти все пары натуральных дружественных чисел, меньших 50000.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

Var n,s1,s2,i,j: longint;
function SumDel (n: longint): longint;
Var i,sum,q: longint;
begin
sum:= 1;
q:= trunc(sqrt(n));
if q*q=n then
 begin
  sum:= q+1;
  dec (q);
 end;
 for i:= 2 to q do
  if n mod i = 0 then
   inc (sum, i+n div i);
SumDel:= sum;
end;
begin
for i:= 2 to 50000 do
 begin
  s1:= SumDel (i); s2:= SumDel (s1);
  if (i=s2) and (i<s1) then
   writeln (i, ' ',s1);
 end;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 02.12.2018, 19:08
Ответы с готовыми решениями:

Найти все пары чисел, каждое из которых равно сумме всех делителей другого, лежащих в диапазоне от 200 до 300
Доброго времени суток, прошу помочь мне с домашним задание. 1. Найти все пары чисел, каждое из которых равно сумме всех делителей...

Найти все пары чисел в интервале, одно из которых равно сумме всех делителей другого, кроме самого числа
переведите пожалуйста код из Pascal в С++ i,j: integer; a,b: integer; //суммы делителей чисел procedure lol(x: integer; var y:...

Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно сумме двух предыдущих. Состави
Задание Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно сумме двух предыдущих. Составить...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 02.12.2018, 19:08
Помогаю со студенческими работами здесь

Два события называются независимыми, если появление одного из них…
Два события называются независимыми, если появление одного из них… 1) исключает появление другого 2) не исключает появление другого ...

Даны два целых числа, если числа не равны, то заменить каждое из них большим, а иначе заменить оба числа нулям
Даны два целых числа. Если числа не равны, то заменить каждое из них большим, а иначе заменить оба числа нулями

Определить является ли заданное число совершенным (равно сумме всех положительных делителей)
Помогите пожалуйста!! 2.Определить является ли заданное число совершенным, то есть равно сумме всех (положительных) делителей, кроме...

Если все числа четные, каждое из них уменьшить в 2 раза, если хотя бы одно - четное, увеличить каждое число на 20%...
Даны три целых положительных числа. Если все они четные, каждое число уменьшить в два раза, если хотя бы одно из них четное, увеличить...

Написать функцию проверки что число равно сумме всех его собственных делителей
Написать функцию проверки что число равно сумме всех его собственных делителей.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru