Pascal/Turbo Pascal - cifras

   
Vista:

cifras

Publicado por daicy (13 intervenciones) el 01/05/2014 18:37:46
hola ramon, puedes hecharme una mano con este ejercicio:
mostrar losdigitos de un numero ingresado por teclado que, en el mismo orden, por separado? Es decir, ¿para 135, deberás mostrar
1
3
5

gracias
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

cifras

Publicado por ramon (2072 intervenciones) el 01/05/2014 23:29:32
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{Esto te valdrá}
 
program digitos;
  uses
     crt;
   var
     dd, p, t, digi : longint;
     r : string[20];
 
   procedure entradanumero(var n : longint);
   begin
      clrscr;
      write('   Entra Numero : ');
      readln(n);
   end;
 
   begin
       entradanumero(digi);
       str(digi,r);
       for t := 1 to ord(r[0]) do
       writeln('   ',ord(r[t]) - 48);
       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

cifras

Publicado por daicy (13 intervenciones) el 02/05/2014 12:08:59
hola ramon, disculpa pero no se puede utilizar ni string ni vectores, solo usando div, o mod y bucle while, ojala puedas corregirmelo sin usar string gracias
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