[luisito2011]

ola.. soy yo de nuevo aca con un problemita que no puedo resolver

//Pida un numero por teclado y determine cual es el valor del digito mayo de dicho numero //
ejemplo .. de 123457
DigM:=7;
si me lo puden agregar.. a esa unidad y en console..

Código Delphi [-]
 
Unit
interface
type
cnumeronatural=class
valor:integer;
  constructor crear;
  procedure asignarvalor(nuevovalor:integer);
  function obtenervalor:integer;
  Function NumeroDigitos : integer;

end;
implementation
constructor cnumeronatural.crear;
begin
  valor:=0;
end;
procedure cnumeronatural.asignarvalor(Nuevovalor:integer);
begin
  valor:=nuevovalor;
end;

function cnumeronatural.obtenervalor:integer;
begin
result:=valor;
end;

 
 Function  CNumeroNatural.NumeroDigitos : integer;
Var
   N,c :integer ;
Begin
     N := Valor;
     C := 0;
     while valor >0 do
       begin
        valor := valor Div 10;
        c:=c+1;
       end;
    result:=c;
 End;
  
end.

gracias