Нахождение ближайшего совершенного числа

[Руслан56]

Добрый день. Помогите пожалуйста решить данную задачку:

Задано целое число N. Найти ближайшее к нему совершенное число. Программу нужно прописать через циклы

[ZX Spectrum-128]

Определить, совершенное ли, а ближайшее к нему сам.
http://programmersforum.ru/showthread.php?t=33864

[Руслан56]

Там просто определяет является ли число совершенным или нет. Нужно найти ближайшее совершенное число. Сам не смогу решить ее, прошу помощи уважаемых программистов.

[Unique_Maks]

совершенных не так уж и много (до int64)
поэтому можно задать массив или множество этих чисел и потом после ввода натурального числа искать ближайшее к нему совершенное

[Mad_Cat]

во множество имхо не влезет! так что только массив или перебор(в обе стороны)

[Руслан56]

Задачу нужно написать через циклы. Массивы не разрешают использовать

[Mad_Cat]

Эх еще бы язык, зарплату и контактные данные указал, вашпе молодец был бы

[Руслан56]

Язык Паскаль ABC. Как объясняли: Нужно например ввести число 20 и программа по обе стороны от числа(-20+) ищет ближайшее совершенное число. Программу требуют написать через циклы и процедуры(или функции). Все очень сложно(

Можно написать без подпрограмм. И пожалуйста можете потом объяснить, что к чему

[Serge_Bliznykov]

Вы тему, на которую Вам ссылку дали, читали?
цитату с вики насчёт совершенных чисел внимательно прочитали?

я ещё раз позволю себе процитировать:

Первое совершенное число — 6 (1 + 2 + 3 = 6), следующее — 28 (1 + 2 + 4 + 7 + 14 = 28). По мере того как натуральные числа возрастают, совершенные числа встречаются всё реже. Третье совершенное число — 496, четвёртое — 8128, пятое — 33 550 336, шестое — 8 589 869 056 (последовательность A000396 в OEIS).

в вашем Pascal ABC максимально допустимое (разрядностью) целое число это:

begin
  WriteLn(maxint)
end.

2147483647

т.е. только первые 5 совершенных чисел попадают в вашу сетку.
Поэтому, заводите массив на 5 элементов, заносите туда 5 совершенных чисел и потом в цикле находите, какое число ближе к введённому.

Что сложного?!

[Unique_Maks]

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