Question

Напишите, пожалуйста, программу на языке Pascal ABC!!! Вводится последовательность из N целых положительных элементов. Подсчитать количество совершенных чисел в последовательности. Для определения совершенного числа создать функцию.

Answer 1

function f(x:longint):boolean;

var i,k:longint;

begin

for i:=1 to x div 2 do

if x mod i=0 then k+=i;

if k=x then f:=true else f:=false

end;

var i,n,k,ans:longint;

begin

read(n);

for i:=1 to n do

begin

read(k);

if f(k) then ans+=1

end;

write(ans)

end.