👤
a fost răspuns

Scrieţi programul care calculează numărul divizorilor unui număr întreg X, utilizând un subprogram procedură.

Eu am subprogramul cu functie si imi trebuie intreg programul cu procedura!
Va rog mult ajutor.Miine am teza!!!!

Se consideră funcţia care calculează numărul divizorilor unui număr:
Function Test(a: integer):integer;
var i, b: integer
Begin
b:=0;
for i:=1 to a do
if a mod i=0 then inc(b);
Test:=b
End;

Răspuns :

EDIT:
Program info;
procedure Nrdiv(x:integer; var nr:integer);
var i:integer;
begin
nr:=0;
for i:=1 to x do
if x mod i=0 then nr:=nr+1;
end;
var x:integer;
begin
write('x='); readln(x);
Nrdiv(x,nr);
write('numarul divizorilor este:',nr);
readln;
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!


Ze Questions: Alte intrebari