Решите подалуйста задачу ** PascalABC 3. Напишите функцию, находящую сумму делителей...

Question

Решите подалуйста задачу на PascalABC 3. Напишите функцию, находящую сумму делителей числа, включая единицу и исключая само число. Используя ее, определите, какое из пяти заданных чисел является совершенным (число равно сумме своих делителей).

Comments

function F(a: integer): integer;begin result := 0; for var i := 1 to a div 2 do if a mod i = 0 then result += i;end;begin var a := ReadArrInteger(5); for var i := 0 to a.High do if a[i] = F(a[i]) then Print(a[i])end.

Answer 1

// скачайте файл, картинка для посмотреть

---