Informatică, întrebare adresată de avidrascu90, 8 ani în urmă

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 ​

Răspunsuri la întrebare

Răspuns de andreisuper
0

var n, i, sum: integer;

begin

 writeln('Introduceti numarul natural n:');

 readln(n);

 

 sum := 0;

 for i := 1 to n do

 begin

   if n mod i = 0 then

     sum := sum + i;

 end;

 

 writeln('Suma numerelor la care n se imparte fara rest este: ', sum);

end.

Alte întrebări interesante