Problema com código para palíndromo.

[XHubeer]

Bem, sou calouro em ciência da computação, menos de um mês e meio de aula, e estou com uma dúvida em um código em pascal.
É o seguinte: meu professor pediu pra fazermos um programa com código em pascal que falasse se um número de 5 dígitos é palíndromo ou não, de primeira eu fiz usando MOD e DIV, mas depois ele falou pra tentarmos fazer sem MOD e sem DIV, apenas usando as funções Trunc e Frac.
 
Eu fiz da seguinte forma:

program palindromo;varnumero : integer;begin     write('Digite um numero de cinco digitos: ');     readln(numero);     if (trunc(numero / 10000)) = (((frac(numero * 0.1)) * 10)) then         begin         if ((frac(trunc(numero / 1000) / 10)) * 10) = (trunc(frac(numero * 0.01) * 10)) then         write('O numero é palindromo.')         end     else         write('O numero nao é palindromo.');readlnend.

 
Porém, o programa não ta funcionando corretamente, eu ja fiz o chinês e a lógica está certa, só que ele da sempre que o número não é palíndromo. Se puder alguém me ajudar ai =D.

[LNW]

@

 

 

Neste caso, use a função Round() no retorno de Frac() sempre que o valor desta função for o último a ser considerado, ou seja, sempre que você não passar para a função Trunc().

 

 

 

 

 

 

LNW