СОВЕРШЕННОЕ ЧИСЛО - это натуральное число, равное сумме всех своих правильных (т. е. меньших этого числа) делителей. Напр., 6=1+2+3 и 28=1+2+4+7+14 суть совершенные числа.

Ни кто не пробовал писать программульку по поиску?

ща слабаем

Вот как 1С совершенной станет, так сразу...

(1)Ненадо кода, друг мой. Особенно 1С-ного. Это на 1С писать - изврат. Да и один фиг, на любом коде - встретятся проблемы.

(1) на 1с-е ес-но!
И найдет она след совершенное число!

Всякие там пишут на асме для Супер-пупер ЭВМ,
а мы 1с-ке!

Насколько я помню, самое большое число то ли 50, то ли 150 знаков. Короче очень большое, и программа работала не один месяц.

А чего их искать... Есть формула Евклида, которая описывает все совершенные четные числа...

Про существование (а равно и про отсутствие) нечетных совершенных чисел науке пока ничего низвестно...

(0) А зачем ? В чем польза народному хощзяйству ?

(6)Это я знаю. Вопрос и стоит какое кол-во этих чисел уже известно.
ЗЫ: Ребенок заставляет писать программу :)

(7) Любопытство.

Совершенное число - это уйма вычислений в каждой следующей итерации, поэтому я даже и не пытался вешать свой комп на 1000...000 лет для подобных вычислений.

Самое большое число на сегодняшний день пока неопределено.
А Самое большое на сегодняшний день - смотри (5)

LOL: "Самое большое число на сегодняшний день пока неопределено.
А Самое большое на сегодняшний день - смотри (5)"

http://ru.wikipedia.org/wiki/GIMPS

хмм

Процедура ПоискЧисел
   КоличествоЧисел = 0;
   ИскомоеЧисло = 2;
   Пока ИскомоеЧисло < 10000000000000000000000000000 Цикл    
       СуммаЧастных = 0;
       ДелительЧисла = 1;
       СовершенноеЧисло = "";
       Пока ДелительЧисла <= ИскомоеЧисло/2 Цикл
           ЧастноеЧисла = ИскомоеЧисло/ ДелительЧисла;
           Если ЧастноеЧисла = ЦелоеЧисло(ЧастноеЧисла) Тогда
               СуммаЧастных = СуммаЧастных + ЧастноеЧисла;
           КонецЕсли;
           ДелительЧисла = ДелительЧисла +1;
       КонецЦикла;
       Если СуммаЧастных = ИскомоеЧисло Тогда
           СовершенноеЧисло = СовершенноеЧисло + Текст(ИскомоеЧисло) + "; ";
           КоличествоЧисел = КоличествоЧисел + 1;
       КонецЕсли;
       ИскомоеЧисло = ИскомоеЧисло + 1;
   КонецЦикла;    
   Сообщить(СовершенноеЧисло);
   Сообщить(КоличествоЧисел);
КонецПроцедуры



Функция ЦелоеЧисло(ПроверяемоеЧисло) Экспорт
   ЦелаяЧастьЧисла = Сред(ПроверяемоеЧисло, 1, Найти(Текст(ПроверяемоеЧисло), "."));
   Возврат ЦелаяЧастьЧисла;
КонецФункции



Вроде так....

496 :)

у меня 13 строчек получилось

а может еще и числа мерсена поискать

8128
я думаю хватит пока

(18) :)
У меня еще дите про числа Фибоначи (Открыл Леонардо Пиззанский Фибоначи) мне заливает... Но я уже и не помню что за числа.  Мне тоже отец сказки такие перед сном рассказывал, теперь вот моей дочке заливает... А она потом на мне отрывается...

(19) Уточни и запомни :)

а ты не в курсе, уважаемый гений, что за тебя этот вопрос давно решили? Еще до рождения христова?
У греков было понятие (практически "гештальт") - "золотое сечение"

-------------------
ЗЫ  Если что, 1,2,3,5,8,13,21, ...
архимедова пентаграмма целиком и полностью построена на этом "сечении". Это твоя октябрятская звезда, если помнишь.

(21) Эт Вы кому, уважаемый? :)

кстати, для справки :
6, 28, 496, 8128, 33550336, 8589869056, 137438691328, 2305843008139952128

(22) дудке. как зачинателю изначально абсурдной ветки

Правильно так:



Функция ЦелоеЧисло(ПроверяемоеЧисло) Экспорт
   ЦелаяЧастьЧисла = Сред(ПроверяемоеЧисло, 1, Найти(Строка(ПроверяемоеЧисло), ".") - 1);
   Возврат ЦелаяЧастьЧисла;
КонецФункции

Процедура ПоискЧисел()

   КоличествоЧисел = 0;
   ИскомоеЧисло = 6;
   СовершенноеЧисло = "";

   Пока ИскомоеЧисло < ПределПоиска Цикл    
       СуммаДелителей = 0;
       ДелительЧисла = 1;

       Пока ДелительЧисла <= ИскомоеЧисло/2 Цикл
           ЧастноеЧисла = ИскомоеЧисло/ ДелительЧисла;

           Если Строка(ЧастноеЧисла) = ЦелоеЧисло(ЧастноеЧисла) Тогда
               СуммаДелителей = СуммаДелителей + ДелительЧисла;
           КонецЕсли;
           ДелительЧисла = ДелительЧисла +1;

       КонецЦикла;

       Если СуммаДелителей = ИскомоеЧисло Тогда
           СовершенноеЧисло = СовершенноеЧисло + Строка(ИскомоеЧисло) + "; ";
           КоличествоЧисел = КоличествоЧисел + 1;
       КонецЕсли;

       ИскомоеЧисло = ИскомоеЧисло + 1;
   КонецЦикла;    

   Сообщить("Совершенные числа: " + СовершенноеЧисло);
   Сообщить("КоличествоЧисел: " + КоличествоЧисел);
КонецПроцедуры




ЗЫ ПределПоиска - реквизит формы....

такое чуйство, шо совершенные числа встречаются все реже и реже.....

(24)пшел нах из моей ветки

(27) обоснуй

(23) Это по какому принципу считал?

(29) По принципу поиска, основываясь на уже найденных :)

(27)
Cуть последовательности Фибоначчи в том,что начиная с 1,1следующее число получается сложением двух пpедыдущих.

последовательность 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, ... называются " числами Фибоначчи",

(31) Да владею я поиском, чудный ты мой :) Давно уже не актуально.

(31) Фибоначчи был далеко не первым

(30) Это как?

(32) Нет ты посмотри на нее, надрываешься, надрываешься тут ради нее, ветку поддерживаешь......
а она..... тьфу на вас

(34) А ты поиском не владеешь?

(35) :) Ну ладно, тебе... Не обижайся. Я хорошая, гдето глубоко глубоко внутри :)

(36) Да как сказать, владеть-то, наверное, владею, только у меня доступ есть только сюда, в 1С и еще пару мест....

(37) Внутри или в душе? А то как -то эротикой повеяло..... :)
(38) На яндекс доступ есть?

(37) глубоко внутри все вы замечательные. Через одну

(39) Угу, только на титульную страницу - курс смотреть.... =(((((

(41) Кто эт тебя так жестоко обрезал?

(42) Корпоративная политика - у нас работает несколько сотчеловек, вот и обрезали всем, а доступ к апределенному ресурсу получить очtym тяжело...

(43) Чо за контора, если не секрет? (для статистики)

(44) Гарантовская компания

(45) Меняй контору - жлобьё..... не знал, что уже до этого дошли

Да фиг с ними, пока з/п и коллектив устраивают буду работать

(47) Ты нашёл уже следующее совершенное число?

А мне друг рассказывал, он учился на физфаке МГУ, так вот когда он был на 1-м курсе у них была игра, называлась -- "письками меряться". Кто точнее число пи посчитает. Ну народ на своих домашних писюках 500 000, 1 000 000 знаков выдавали, пока один парниша, имевший доступ к вычислительному кластеру ЦУПа не принес число пи на 4-х болванках. После этого перестали меряться.