Pascal/Turbo Pascal - AYUDA PROCESO CONTAR DÍGITOS IMPARES

   
Vista:

AYUDA PROCESO CONTAR DÍGITOS IMPARES

Publicado por luisina (18 intervenciones) el 11/06/2013 21:33:59
HOLA NECESITO HACER UN PROCESO QUE RECIBA UN NUMERO, E INFORME SI EL NUMERO ESTA COMPUESTO POR TODOS DÍGITOS PARES.
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

AYUDA PROCESO CONTAR DÍGITOS IMPARES

Publicado por ramon (2072 intervenciones) el 12/06/2013 23:08:05
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
{Es algo como esto}
  program digitos;
  uses
     crt;
  var
   numero : integer;
   caden  : string[20];
   t : integer;
   si : boolean;
  begin
     clrscr;
     si := true;
     write('    Entre un numero : ');
     readln(numero);
     str(numero,caden);
     for t := 1 to length(caden) do
     if caden[t] in['1','3','5','7','9'] then
     begin
     writeln('  El Numero Entrado [ ',caden,' ] Tiene Digitod Impares');
     si := false;
     break;
     end;
       if si = true then
       writeln('  El Numero Entrado [ ',caden,' ] Es De Digitod Pares');
 
      writeln;
      writeln('    Pulse Una Tecla');
      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
1
Comentar