Напишите программку задачи на языке Паскаль.Нужно выяснить, является ли введенное

Напишите программку задачки на языке Паскаль.
Нужно выяснить, является ли введенное юзером число абсолютным. Абсолютным называется такое число, сумма делителей которого одинакова этому числу, если не учесть в ней заключительный делитель-само данное число. Например, число "6" является абсолютным числом, так как оно имеет три делителя: 1, 2, 3 и при этом 1+2+3=6, то есть самому числу

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

var N,i,k:integer;

BEGIN

readln(N);

k:=0;

for i:=1 to N div 2 do

if (N mod i=0) then

k:=k+i;

if (k=N) then

writeln('Да') else

writeln('Нет');

end.

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


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

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

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

Войти на сайт