Абсолютным именуется число, одинаковое сумме всех собственных делителей, меньших его самого

Абсолютным называется число, равное сумме всех собственных делителей, наименьших его самого (к примеру, число 6=1+2+3). Напишите программку, которая вводит естественное число N и определяет, является ли число N абсолютным.

Входные данные
Входная строчка содержит естественное число N .

Выходные данные
Если число N абсолютное, программа обязана вывести в одну строчку через пробел все делители этого числа, меньшие N . Если число неидеальное, программа обязана вывести 0.

Задать свой вопрос
1 ответ

var n,z,n1,e:integer;

begin

e:=0;

readln(n);

n1:=n div 2;

for z:=1 to n1 do begin

if (n mod z = 0) then e:=e+z;

end;

if (e=n)

then writeln('соверншенное')

else writeln('0');

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт