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.

Scrieti o functie dupa aceasta procedura care are acelasi efect.

Answer 1

Variabila a este variabila de intrare. Variabila n reprezinta valoarea de iesire a procedurii. Procedura determina cate cifre are variabila a. Echivalentul in functie este:

function numar(a:integer):integer;
var k:integer;
begin n:=0;
while a<>0 do begin
k:=a mod 10; n:=n+1;a:=a div 10;
numar:=n;
end.