Pequeña variante de román cuenta los dígitos de izquierda a derecha
Código Delphi
[-]function DigitAtPos(N,K: Dword): DWord;
var e: DWord;
begin
Result:=0;
e:=(trunc(Ln(N)/Ln(10))+1);
if K<=e then Result:=(N div trunc(intpower(10,e-K)))mod 10;
end;
begin
Writeln(DigitAtPos(1248935,4));
ReadLn;
end.