Question

URGENT VA ROG
Pascal:
Se da un numar natural x. Elaborati un program careva calcula suma divizorilor acestui numar utilizand in acest scop un subprogram.
Intrare: In prima linie se introduce numarul X
Iesire: Afiseaza Suma divizorilor lui X

Answer 1

Program Pn;
var x,i,s:integer;
function f(x:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to x do
if (x mod i)=0 then s:=s+i;
f:=s;
end;
begin
Writeln('Dati x');
readln(x);
Writeln(f(x));
readln;
end.