Hola gente, tengo un problema con un ejercicio en pascal: estoy aprendiendo -hace un par de semanas, así que soy muy n00b- a programar, he conseguido unos ejercicios muy básicos por ahí, y los hice con bastante facilidad, hasta que me topé con uno que pedía lo siguiente:


Lo que he hecho es lo siguiente:

program cuentadigitos;
        var
           c,d: integer;
           x: real;
        begin
             writeln ('Para terminar ingrese "0"');
             repeat
                   c:=0;
                   d:=0;
                   readln (x);
                   x:=x*10;
                   repeat
                         c:=c+1;
                         x:=x / 10
                   until abs (x)<10;
                   repeat
                         d:=d+1;
                         x:=x*10
                   until d=c;
                   writeln ('El numero ',x,' esta formado por ',c,' digitos');
             until x=0
        end.

Pero tiene algunos defectos, primero, que "x" es real, en lugar de entero, y no es lo que pide el ejercicio, además la forma en que se muestran los reales en la consola es muy incómoda (si alguien sabe como quitar todos esos ceros le agradecería que me lo dijera ); segundo, que no encuentro una forma de cerrar el programa que no sea introduciendo un número (en este caso, "0"), me interesaría por ejemplo que el programa terminase cuando se introduce "end". Y también tengo la sospecha de que hay formas más sencillas que ésta para contar dígitos...
Si alguien sabe como solucionar alguno de estos problemas, me le voy a estar muy agradecido.

Saludetes.

PD.: Los estoy viendo! no se rían de mi código, les avisé que soy muy n00b xD

Hola, muchas gracias por responder, hoy me he percatado de que hay una forma bastante más sencilla que la anterior de hacerlo:

program cuentadigitos;
        var
           x,c,aux:integer;
        begin
             repeat
                   write ('Nuevo numero: ');
                   read(x);
                   aux:=1;
                   c:=0;
                   repeat
                         c:=c+1;
                         aux:=aux*10
                   until abs(x)<aux;
                   writeln ('El numero ',x,' esta formado por ',c,' digitos');
             until x=0
        end. 

 
Con lo que "x" es entero de principio a fin

Ahora tengo problemas con otros dos:


El primero lo estoy terminando, pero es exageradamente largo y también tiene el problema de que el "entero x" resulta siendo real  . Respecto al segundo, tengo la sospecha de que me va a quedar parecido al primero. Así que si alguien tiene alguna idea de como hacerlos, me ayudaría mucho que me orientaran, obviamente no diciéndome exactamente como hacerlo sino dándome alguna pista, qué funciones podría usar...

Saludos y muchas gracias!!!

Para el segundo: Si "digito" está presente en "numero"
Inicializas una variable boolean como "false"
1.- Leer numero
2.- Leer digito
3.- "presente=falso"
4.- Hallar el resto de "numero" entre 10  (resto = numero mod 10)
5.- Si "resto = digito" entonces "presente=verdadero"
6.- De lo contrario quitar el ultimo digito a numero (numero = numero div 10)
7.- Repetir desde el paso 4 hasta que "presente=verdadero" o "numero=0"
8.- Si "presente=verdadero" entonces "Si esta presente"; de lo contrario "No esta presente"

Advertencia... puede contener pequeños errores. 

Suerte.