Решите подалуйста задачку на PascalABC3. Напишите функцию, обретающую сумму делителей

Решите подалуйста задачку на PascalABC

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

Милана Ряднова 2019-09-21 15:10:47

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.