👤
SMILLE99ZE
a fost răspuns

Fie procedura
Procedure numar (a:integer;var n:integer)
var k:integer;
begin n:=0
while a <>0 do begin
k:=a mod 10; n:=n+1; a:=a div 10; end;
end;
Scrie o functie dupa acesta procedura care are acelaşi efect.


Răspuns :

In procedura, ne trebuie n-care corespunde programului: din cite cifre este unu numar 'a'. Atunci primim ca 'n' depinde de 'a', astfel functia va arata asa:

Function n(a:integer):integer;
var k:integer;
begin
while a<>0 do begin
k:=a mod 10;
n += 1;
a:=a div 10;
end;
end;
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari