function Nuevo_Numero_con_los_Digitos_Pares (numero: integer): integer;
var
dig,nu,inc:integer;
begin
inc:=1;
nu:=0;
while (numero>0) do
begin
dig:=numero mod 10;
// para digitos pares // para digitos impares
if (dig mod 2)=0 then // if (dig mod 2)<>0 then
begin // begin
nu:=nu+(dig*inc); // nu:=nu+(dig*inc);
inc:=inc*10; // inc:=inc*10;
end else begin // end else begin
end; // end;
numero:=numero div 10;
end;
Result:=nu;
end;
// Forma de llamar a la función
begin
edit3.Text:=inttostr(clase.Nuevo_Numero_con_los_Digitos_Pares(strtoint(edit2.Text)));
end;
begin
edit3.Text:=inttostr(clase.Nuevo_Numero_con_los_Digitos_impares(strtoint(edit2.Text)));
end;
No hay comentarios:
Publicar un comentario