Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.02.2014, 20:56   #1
Liky
Новичок
Джуниор
 
Регистрация: 20.02.2014
Сообщений: 2
По умолчанию Последовательность

Нужна помощь.
Дана последовательность целых чисел, за которой следует 0. Определить есть ли в ней хотя бы 2 совершенных числа.
Liky вне форума Ответить с цитированием
Старый 20.02.2014, 22:12   #2
Simon1712
Пользователь
 
Регистрация: 11.11.2012
Сообщений: 36
По умолчанию

Считываешь последовательность до нуля, и для каждого запускаешь процедуру определения совершенное оно или нет. Процедура делается легко, циклом бежишь от 1 до корня из этого числа, если число является делителем, то прибавляешь его к сумме других делителей, после сравниваешь сумму и само число, если они равны, то число совершенное.
Simon1712 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана последовательность целых чисел a1, a2, …an. Образовать новую последовательность, выбросив из исходной, те члены, которые равн Мария74 C++ Builder 2 04.12.2013 23:09
Дана непустая последовательность вещественных чисел, оканчивающаяся числом 1000. Последовательность является неубывающей. fanatloko Паскаль, Turbo Pascal, PascalABC.NET 1 23.06.2013 14:25
*Последовательность* Deymonn Помощь студентам 0 08.01.2013 22:22
последовательность sasha-77793 Общие вопросы C/C++ 1 25.05.2011 20:59
Последовательность CraftR14 Общие вопросы Delphi 1 07.05.2010 13:11