Question

Se citeste de la tastatura un numar mai mare decat 1000.Verificati daca numarul este palindrom(un nr este palindrom daca citit de la stanga la dreapta
este egal cu numarul citit de la dreapta la stanga) . Am incercat eu dar nu mai stiu sa continui:
program numar;
var n,m,i,aux :integer;
begin
repeat
write('n=');readln(n);
until(n>1000);
m:=n;
aux:=0(daca nu e bine pana aici va rog sa ma corectati si sa il continuati ca nu stiu cum sa il mai fac mai departe)VA ROG !!! :* :*

Answer 1

Program Palindrom;
   var x: integer;

begin
write ('Introduceti un numar cuprins intre 1000 si 32768.');
readln (x);
 
if (x<1001) or (x>MaxInt) then writeln ('Numarul nu se afla in intervalul specificat.);

if x<9999 then
      begin
      if ((x mod 10)=(x div 1000)) and ((x mod 100 div 10)=(x div 100 mod 10))
      then writeln ('Este.')
      else writeln ('Nu este.');
      end;

if x>9999 then
      begin
      if ((x mod 10)=(x div 10000)) and ((x mod 100 div 10)=(x div 1000 mod 10))             then writeln ('Este.')
      else writeln ('Nu este.');
      end;
   
readln;
   end.