Pascal/Turbo Pascal - Como calculo un numero perfecto

Cual puede ser el algoritmo a seguir para calcular un numero perfecto

Define qué es un "número perfecto".

programa que calcule los numeros perfectos

Hola, para calcular los numeros perfectos, el codigo seria asi:

Program NumerosPerfectos;
uses
crt;

var
k ,n : byte;
i,num,
sum : word;

begin
clrscr;
num:= 0;
k:=0;
Writeln('Ingrese la cantidad de numeros perfectos que desea conocer');
Readln(n);
while k < n do begin
inc(num,2);
sum:= 0;
for i:= 1 to num div 2 do
if num mod i = 0 then
inc(sum,i);
if sum = num then begin
inc(k);
writeln(k,'º nro. perfecto: ',num:3)
end
end;
readln
end.

Un abrazo!!

porfa ayuden como agarrarle la onda a programacion

perefewc

como hacer un algoritmo en borland pascal utilizando un ciclo repeat-until