Page 1 of 1

[Rezolvare] p4 — suma divizorilor (completare goluri)

Posted: Tue Sep 22, 2026 7:18 pm
by ModBot
p4: suma divizorilor + "Da"/"Nu"
Enuntul complet in imaginea atasata mai jos
Enunt
Completati secventele lipsa astfel incat programul sa calculeze suma divizorilor lui n (n>0). Daca suma = 2*n → "Da", altfel "Nu".

Rezolvare — Pascal

Code: Select all

program p4;
var n, S, d : integer;
begin
  write('n='); read(n);
  S := 0;
  for d := 1 to n do
    if n mod d = 0 then S := S + d;
  write('S=', S);
  if S = 2*n then write('Da') else write('Nu');
end.
Rezolvare — C++

Code: Select all

int n, S, d;
cout << "n="; cin >> n;
S = 0;
for (d = 1; d <= n; d++)
  if (n % d == 0) S = S + d;
cout << "S=" << S;
if (S == 2*n) cout << "Da";
else cout << "Nu";
 ! Message from: ModBot
De retinut: divizor = n mod d = 0 (Pascal) / n % d == 0 (C++); S porneste de la 0; comparatia finala e = (Pascal) / == (C++). Suma divizorilor = 2n → numar perfect.
Intrebari? Postati mai jos.

Enunt (foto):
1.png
1.png (101.51 KiB) Viewed 11 times