помогите, пожалуйста, очень нужно! Паскаль. Абсолютным называется число, одинаковое сумме всех
Помогите, пожалуйста, очень необходимо! Паскаль. Абсолютным называется число, одинаковое сумме всех собственных делителей, наименьших его самого (к примеру, число 6=1+2+3). Напишите программку, которая вводит натуральное число N и определяет, является ли число N абсолютным.
Входные данные
Входная строчка содержит естественное число N .
Выходные данные
Если число N абсолютное, программка обязана вывести в одну строку через пробел все делители этого числа, меньшие N . Если число неидеальное, программка обязана вывести 0.
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018
Внимание! Если программа не работает, обновите версию!
function СовершенноеЧисло(n: integer): boolean;
begin
var (s,d,n2) := (1,2,n div 2);
while d lt;= n2 do
begin
if n mod d = 0 then s += d;
Inc(d)
end;
Result := n = s
end;
begin
if СовершенноеЧисло(ReadInteger) then Print('Абсолютное')
else Print('Несовершенное')
end.
Пример
33550336
Абсолютное
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.