Question

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.

Answer 1

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;