Question

Cerinţa Se citește un număr natural n. Să se determine suma divizorilor impari ai săi. Date de intrare Programul citește de la tastatură numărul n. Date de ieşire Programul afișează pe ecran numărul S, reprezentând suma divizorilor impari ai lui n. Restricţii şi precizări 0 < n < 1.000.000.000 Exemplu Intrare 30 Ieșire 24

Answer 1

var

 i,n,s:integer;
 
begin

 read(n);
 writeln;
 
 for i:=1 to n do
  if (odd(i)) and (n mod i = 0) then
    inc(s,i);
    
 writeln(s);

end.