Pascal/Turbo Pascal - identificar si un numero es capicua

   
Vista:

identificar si un numero es capicua

Publicado por Manuel (12 intervenciones) el 22/08/2013 21:25:29
Tengo que hacer un programa que pueda identificar si un numero es capicua. No entiendo de que forma hacerlo por que lo hice y solo funciono con 3 digitos.. Agradeceria mucho su ayuda
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

identificar si un numero es capicua

Publicado por ramon (2072 intervenciones) el 02/09/2013 12:06:17
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
{A ver si esto te ayuda}
 
 program numecapi;
 uses
    crt;
  var
    num : longint;
    i, k : integer;
    ds : string[15];
 
 
  function numero : longint;
  begin
      clrscr;
      write('   Entre Numero : ');
      {$I-} readln(num); {$I+}
      if ioresult <> 0 then
      begin
      numero := 0;
      end
    else
       begin
          numero := num;
       end;
  end;
 
  procedure escapicua(nn : longint);
  var
    no : boolean;
  begin
      Str(nn, ds);
      no := false;
      k := length(ds);
      for i := 1 to length(ds) do
      begin
         if ds[i] <> ds[k] then
         begin
            writeln('  El Numero No Es Capicua ');
            no := true;
            break;
         end
       else
          k := k - 1;
      end;
      if no = false then
      writeln('  El Numero Si Es Capicua ');
  end;
 
 
 
  begin
      escapicua(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