Получить все совершенные числа, меньшие n

@RinatRinat1 · Регистрация: 22.01.2021

Author24 — интернет-сервис помощи студентам

Натуральное число называется совершенным, если оно равно сумме всех своих делителей за исключением самого себя. Например. 6= 1+2+3. Дано натуральное число n. Получить все совершенные числа, меньшие n.
версия: 1С 8.3
Решите пожалуйста

@Dethmontt · 22.01.2021, 23:02

RinatRinat1, и чего, это нужно обязательно на 1С ?

Добавлено через 8 минут

1C

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

@RinatRinat1 0 / 0 / 0 Регистрация: 22.01.2021 Сообщений: 28
		1
	Получить все совершенные числа, меньшие n 22.01.2021, 20:58. Показов 2926. Ответов 1 Метки нет (Все метки) Натуральное число называется совершенным, если оно равно сумме всех своих делителей за исключением самого себя. Например. 6= 1+2+3. Дано натуральное число n. Получить все совершенные числа, меньшие n. версия: 1С 8.3 Решите пожалуйста 0

	22.01.2021, 23:02

Опции темы

Получить все совершенные числа, меньшие n

Решение