Informatică, întrebare adresată de noiunubibi, 9 ani în urmă

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

Răspunsuri la întrebare

Răspuns de stassahul
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.
 
Alte întrebări interesante