Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nataxasan1984
15.09.2022 12:17 •
Информатика
(для паскаля) два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается). найти все пары натуральных дружественных чисел, меньших 50 000.
Показать ответ
Ответ:
wertuos1234
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 оценок)
Популярные вопросы: Информатика
Strellerts
13.01.2022 02:32
Вкоробке находятся красные, синие и белые карандаши, причем синих в три раза больше, чем белых, а количество красных карандашей 56. сообщение о том, что достали...
натали578
13.01.2022 02:32
На единственный вход черного ящика подается цепочка чисел 0,1,2. на единственном выходе образуется цепочка 0,1,4. определите по какому правилу происходит преобразование...
gundinamaria
15.04.2022 12:21
1.Какое минимальное количество компьютеров может быть в локальной сети?2.Какие подключения к сети Интернет вы знаете?3.По заданным доменным именам, определите какой...
marius95
04.07.2020 16:32
Пусть а, b, c – углы треугольника. Какое сообщение можно вывести на экран при выполнении условия (a = 90) or (b = 90) or (c = 90)?1)Треугольник прямоугольный2)Треугольник...
шшшшккпеее1
07.11.2021 14:45
Что такое информация? а) лица, предметы, процессы и тд. б)сведения, сообщения и данные. в)каменные плиты глинные таблички пергамент папирус береста бумага и тд....
sndzhychayana
03.04.2020 00:02
Тест по теме «базы данных» вариант 1 1. какое из следующих утверждений верно? а) запись состоит из нескольких полей. б) поля и записи не зависят друг от друга. в)...
Nastusha21032005
25.10.2021 19:37
Сделайте прецентацию на тему технология (что бы было не скучно ) можно все предметы но чтобы были сделанно по типу технология...
тараканеше
04.01.2023 06:25
какое количество информации мы получаем в зрительном сообщении о падении симметричного шестнадцатигранника на одну из граней?...
figakuvesi
22.06.2021 09:16
Просклоняйте числа : 2567,894,58,4385...
korotkovavd2006
22.06.2021 09:16
Почему кавказская война при александре 2 была такой длительной?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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) ... запускайте и ждите, если больше заняться нечем.