Pascal/Turbo Pascal - numeros enteros

   
Vista:

numeros enteros

Publicado por katy (4 intervenciones) el 14/03/2008 14:56:13
como se hace para realizar un programa en pascal en donde se introduzca un numero entero cualquiera y seguidamente aparezca el total de sus digitos correspondiente a esa cantidad?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:numeros enteros

Publicado por Willy De León (181 intervenciones) el 15/03/2008 22:42:48
Hola Katy.
Puedes tratar el número como simple texto.
La función Length devuelve la cantidad de caracteres que tiene una cadena.

Uses Crt;
Var Numero: String;
Begin
ClrScr;
WriteLn('Introduzca un numero');
ReadLn(Numero);
WriteLn('La cantidad de digitos es: ', Length(Numero));
Readkey
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar