Calculando cantidad de digitos pascal.
{
En este ejemplo de turbo pascal mostrare la manera de como calcular la cantidad de dígitos}De un número mediante if' anidados de manera
que se dira exactamente de cuantos digitos es el numero que se
introdusca llendo desde -3 a 3 digitos
Aqui el codigo:
<Program appletenhtml (input,output); uses crt; Var num: integer; Begin write('Escribe el numero de 1 a 3 cifras: '); readln(num); if (num >= -9) and (num <= 9) then write('El numero introducido tiene 1 cifra') else if (num >= -99) and (num <= 99) then write('El numero introducido tiene 2 cifras') else if (num >= -999) and (num <= 999) then write('El numero introducido tiene 3 cifras') else write('El numero introducido tiene mas de 3 cifras'); readkey; End.
Descargar ejemplo
BY:Carlos
© 2025 TAS All rights reserved.