Obtener determinado dígito de un número

[xneox]

hola a todos esta es mi primera ves aqui y nesecito una ayuda, debo hacer una funcion en consola que me muestre de un numero de cierta cantidad de digitos uno en especifico
ejemplo
253646
y yo escribo 2, que me muestre el digito que esta en la posicion 2 osea el numero 5

[ecfisa]

Hola xneox, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

xneox, ¿ Podrías indicarnos que parte del problema o del código te está presentando dificultad ?


Saludos.

[xneox]

Código Delphi [-]
unit Uvega;

interface

function digito(a,b:integer):integer;

implementation

function digito(a,b:integer):integer;
var x,y,z :integer;
begin
  x:=a;
  y:=longitud(b);
  while x<=y do 
  begin
    z:= b mod 10;
    b:= b div 10;
    y:=longitud(b);
  end;
  digito:=z;
end;

end.

no me corre no se en que parte me sale que esta mal

[[ElDioni]]

Hola,

para empezar, ¿que es longitud?.

Saludos.

[Casimiro Noteví]

Empezado por xneox

..

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[ecfisa]

Hola xneox.

Código Delphi [-]
function ObtenerDigito(Numero: Integer; const Posic: Byte): Integer;
var
  Inverso, Resto, i: Integer;
begin
  // Invertir
  Inverso:= 0;
  while Numero > 0 do
  begin
    Resto  := Numero mod 10;
    Inverso:= Inverso * 10 + Resto;
    Numero := Numero div 10;
  end;
  // Obtener dígito
  for i:= 1 to Posic do
  begin
    Result := Inverso mod 10;
    Inverso:= Inverso div 10;
  end;
end;

Saludos.

[champy]

Se me ocurre uno aún más corto.

Código Delphi [-]
Function ObtenerNumero(Numero: Integer; Posicion: Integer): Integer;
begin
  Result := StrToInt(Copy(IntToStr(Numero), Posicion, 1));
end;