Dizemos que um número natural n é palíndromo se
o 1º algarismo de n é igual ao seu último algarismo,
o 2º algarismo de n é igual ao penúltimo algarismo,
e assim sucessivamente.
Exemplos:
- 567765 e 32423 são palíndromos.
- 567675 não é palíndromo.
Dado um número natural n > 10 , verificar se n é palíndrome.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
program polindrome; var num, aux, reverso : longInt; begin readLn(num); aux:=num; reverso:=0; while aux<>0 do begin; reverso:=reverso*10+(aux mod 10); aux:=aux div 10 end; if reverso=num then writeLn('o # é palindromo') else writeLn('o # não é palindromo') end. |