Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
dubrovin13051
19.10.2020 21:00 •
Информатика
(для паскаля) два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается). найти все пары натуральных дружественных чисел, меньших 50 000.
Показать ответ
Ответ:
bananxhik
03.08.2020 11:42
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
function snd(n:integer):integer;
begin
Result:=1;
for var i:=2 to n div 2 do
if n mod i=0 then Result+=i
end;
begin
for var i:=1 to 50000 do
for var j:=i+1 to 50000 do
if (snd(i)=j) and (snd(j)=i) then Print((i,j))
end.
Результат
(220,284) (1184,1210) ... запускайте и ждите, если больше заняться нечем.
0,0
(0 оценок)
Популярные вопросы: Информатика
сергейщепетинов
09.10.2022 17:14
Отиниш комектесиниздерши...
lenin1488
24.05.2023 19:39
Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатричной системе счисления. в vba...
leron9999
25.07.2020 02:09
Напишите программу, которой вы задаёте набор слов (например, фамилий) через пробел и она выводит их по одному слову в строке и пронумеровав с единицы Payton...
сайнорбой
20.06.2020 05:27
4. В тетрадь напишите текст под названием «Рисование в программе Paint». В тексте отобразите возможности программы, функции и фигуру, которые создают инструменты из Панели...
Алжсжсзвьвлвждчяь
06.02.2020 14:16
В ячейку D7 напишите функцию для определения общей стоимости покупок....
Queen2221
16.03.2020 09:59
6 YOUR OPINIONS Ask and answer the questions1 Do you think sports stars are good rolemodels?2 Why are sports so popular?3 What sports do you like to watch? Why?4 Who is your...
artandr2212
15.09.2021 12:37
Студенты пед. института организовали эстрадный квартет. михаил играет на саксофоне. пианист учится на факультете. ударника зовут не валерием, а студента факультета зовут...
yaxoroshiy1
15.03.2022 11:58
Корень из 1875?Сколько будет?...
Proжареный
15.03.2022 11:58
Учені України В. Богомолов, В. Глушков, Л. Ландау, Б. Патон працювали у галузях…...
alehanagaitsewa
15.03.2022 11:58
задайте сложные во по математике...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
function snd(n:integer):integer;
begin
Result:=1;
for var i:=2 to n div 2 do
if n mod i=0 then Result+=i
end;
begin
for var i:=1 to 50000 do
for var j:=i+1 to 50000 do
if (snd(i)=j) and (snd(j)=i) then Print((i,j))
end.
Результат
(220,284) (1184,1210) ... запускайте и ждите, если больше заняться нечем.