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