Question

Problema PASCAL se da doar numarul natural n care este mai mic ca 1000 sa se afle suma numerelor la care n se inparte fara rest ​

Answer 1

Răspuns:

 var

   n, i, suma: Word;

begin

 Write('n: ');

 ReadLn(n);

 suma := 0;

 for i := 1 to n do begin

   if n mod i = 0 then begin

{      WriteLn(n, ' se împarte la ', i, ' fără rest'); // numai pentru verificare }

     suma := suma + i;

   end;

 end;

 WriteLn('Suma numerelor la care ', n, ' se împarte fără rest: ', suma);

end.

Explicație: