Олимпиадный тренинг

Задача . Логические функции. Совершенные числа


Задача

Темы:

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

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

Выходные данные: Если число N – совершенное, программа должна вывести слово 'YES', иначе – слово 'NO'.

Примеры
№ Входные данные Выходные данные
1 28 YES
2 29 NO

time 1000 ms
memory 256 Mb
Правила оформления программ и список ошибок при автоматической проверке задач

Статистика успешных решений по компиляторам
 Кол-во
Free Pascal2
Комментарий учителя

Ваш ответ

Pascal
Напишите программу ниже 
var N: longint;

function SumOfDivisions(n: integer): integer;  
end;

function isPerfectNumber(n: integer): boolean;  
end;

begin
    read(N);  
end.
     

Загруженные файлы
Нет