Question

se citeste de la tastatuna un numar natural n. sa se calculeze suma divizorilor proprii ale acestuia
va rog sa fie in pascal​

Answer 1

Răspuns:

program sumaDivProprii;

var num,d,suma:integer;

begin

 write('introdu numar natural: '); read(num);

 d:=2; suma:=0;

 while d*d<num do

   begin

     if num mod d = 0 then suma:=suma+d+(num div d);

     d:=d+1;

   end;

 if d*d=num then suma:=suma+d;

 writeln('suma divizorilor proprii este ',suma);

end.

Explicație:

am folosit una din cele mai efective metode pentru gasirea divizorilor. Mai exista si altele, iata un exemplu:

for d:=2 to (n div 2) do

if num mod d=0 then suma:=suma+d;