-
Lenguaje
Pascal
-
Descripción
Se lee un número de máximo tres dígitos (verifique que efectivamente sea de máximo tres dígitos) y se debe determinar si es un número capicúa, es decir, que leído de izquierda a derecha es igual que leído de derecha a izquierda. Por ejemplo: 727, 343, etc.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program NumeroCapicuaDeTresDigitos;
uses crt;
var un_numero : integer;
begin
write ('Ingresa el valor de un numero: ');
readln (un_numero);
if un_numero>=10000 then
begin
writeln ('El n'#163'mero tiene m'#160's de 3 d'#161'gitos.');
end;
if (un_numero<10000) and ((un_numero-un_numero mod 100) div 100=un_numero mod 10) then
begin
writeln ('El n'#163'mero s'#161' es capic'#163'a.');
end;
if (un_numero<10000) and ((un_numero-un_numero mod 100) div 100<>un_numero mod 10) then
begin
writeln ('El n'#163'mero no es capic'#163'a.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var un_numero : integer;
begin
write ('Ingresa el valor de un numero: ');
readln (un_numero);
if un_numero>=10000 then
begin
writeln ('El n'#163'mero tiene m'#160's de 3 d'#161'gitos.');
end;
if (un_numero<10000) and ((un_numero-un_numero mod 100) div 100=un_numero mod 10) then
begin
writeln ('El n'#163'mero s'#161' es capic'#163'a.');
end;
if (un_numero<10000) and ((un_numero-un_numero mod 100) div 100<>un_numero mod 10) then
begin
writeln ('El n'#163'mero no es capic'#163'a.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.