Exercice : Nombre palindrome + deux versions de solutions

On veut écrire un programme qui vérifie si un nombre formé de 4 chiffres est palindrome ou non.

Un nombre palindrome se lit de la même façon de gauche à droite, et de droite à gauche.

Voilà une solution, reste une autre, à vous de la proposer :

Code:


{ Comment vérifier si un nombre est palindrôme ou non
  en utilisant DIV et MOD }


program nbr_palindrome;

uses wincrt;

var
  n: integer;
  chiffre1, chiffre2, chiffre3, chiffre4: integer;
 
begin

    writeln('TEST DE NOMBRES PALINDROMES');

    write('Donner un nombre : ');
    readln(n);

    if (n>=1000) and (n<=9999 ) then
    begin
        {identification des chiffres}
        chiffre1 := n div 1000;
        chiffre2 := (n mod 1000) div 100;
        chiffre3 := (n mod 100) div 10;
        chiffre4 := n mod 10;

        {test}
        if (chiffre1=chiffre4) and (chiffre2=chiffre3) then
          writeln(n,' est un nombre palindrôme.')
        else
          writeln(n,' n''est pas palindrôme.');

    end
    else
      writeln('Attention: le nombre ne contient pas 4 chiffres!');

end.

a+