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:

program suma;

var n, a, s: integer;

begin

    write('n= '); read(n);

    s:=0;

    for a:=1 to n do

         if n mod a = 0 then s:=s+a;

    writeln('suma = ', s);

end.

Explicație: