Question

Nhập vào 1 dãy gồm n phần tử kiểu số nguyên. In ra các số hoàn thiện có trong dãy (giải bằng Pascal)

Giúp e với ạ !

Answer 1

uses crt;

var a:array[1..1000]of integer;

i,n,t,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do 

begin

t:=0;

for j:=1 to a[i] div 2 do 

  if a[i] mod j=0 then t:=t+j;

if t=a[i] then write(a[i]:4);

end;

readln;

end.