Răspuns :
program perfecte;
var n, num, suma, gasit, j:integer;
begin
write('n= '); read(n);
gasit:=0; num:=6;
writeln('numere perfecte de la 1 la n: ');
while (num<=n) do
begin
suma:=0;
for j:=1 to (num div 2) do
if (num mod j =0) then suma:=suma+j;
if (suma=num) then begin gasit:=1; write(num, ' '); end;
num:=num+2;
end;
if (gasit=0) then writeln('nu exista...');
writeln;
end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!