ПОМОГИТЕ ПОЖАААЛУЙСТА

Question

ПОМОГИТЕ ПОЖАААЛУЙСТА

---

Comments

пример совершенного числа дай

---

натуральное число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого́ числа). По мере того как натуральные числа возрастают, совершенные числа встречаются всё реже.

---

например: 6 или 28 или 496

---

попробую

---

спасибо огромнейшеее

---

пробуй

---

ну как

---

все супер, спасибо огромное

---

)) рад помочь

Answer 1

Var a:array [1..10000] of integer; c,b,k,n:integer;
begin
read(n); b:=n; c:=0;
for k:=1 to n do begin 
read (a[k]); for k:=1 to a[k]-1 do begin
if a[k] mod k=0 then c:=c+k;
if c=a[k] then b:=b-1;
end;
end; write(b);
end.