Para acrescentar à lista:
SOCORRAMMESUBINOONIBUSEMMARROCOS
Fausto
On 12/8/06, jscoutinho1 <[EMAIL PROTECTED]> wrote:
>
> Bom dia a todos,
> Palindromes (ARARA, AVIVA, ATOYOTA, 12321, 2A3IEAS), então eu sei o
> que e um palindrome, so que eu não estou conseguindo fazer esse
> programa para comparação de palindrome.
> Eu ate fiz a logica são que não esta rodando em fonte...
> (Console do Delphi)
> Gostaria saber quem poderia me ajudar.
>
> program Polindromes;
>
> {$APPTYPE CONSOLE}
>
> uses
> SysUtils;
>
> var
> n1 :integer;
> n2 :integer;
> begin
> Writeln('Digite dois números de até 3 digitos');
> Readln(n1,n2);
> if (n1 < 1000) and (n2 < 1000)
> then
> if (n1 > 100) and (n2 > 100)
> then
> if
> (n1 / 100 = n2 mod 10)
> then
> begin
> n1 := (n1 / 100);
> n2 := n2 mod 10;
> if (n1 / 10 = n2 mod 10) and (n1 mod 10 = n2 / 10)
> then
> Writeln('Os numeros são palindromes')
> else
> Writeln('Os numeros não são palindromes')
> end
>
> else
> writeln('Os numeros não são palindromes')
> end
>
> else
> if (n1 > 10) and (n2 < 10) and (n2 < 100)
> then
> if (n1 / 10 = n2 mod 10) and (n1 mod 10 = n2 / 10)
> then
> writeln('os numeros são palindromes')
> else
> writeln('Os numeors não são palindromes');
> end
>
> else
> writeln('Os numeros não são palindromes');
> end
> end
> end
>
> end.
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
