👤
a fost răspuns

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

Răspuns :

FACEBOOKAUGUSTIZE
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!


Ze Lesson: Alte intrebari