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

Программа для решения задачи и пример её работы - в прилагаемом файле.
Оцени ответ