function digitos_pares(numero: integer): integer;
var
residuo,dig,cont:byte;
begin
while (numero>0) do
begin
residuo:=numero mod 10;
if (residuo mod 2)=0 then
begin
Inc(cont);
end;
numero:=numero div 10;
end;
Result:=cont;
end;
Forma de Llamar:
begin
edit1.Text:=inttostr(form1.digitos_pares(strtoint(edit2.Text)));
end;
No hay comentarios:
Publicar un comentario