Soru 03: Altı haneli polindromik sayıları bulan program

 

{Altı haneli polindromik sayıları bulan program}

program d6polindromik;

uses crt;

var

  i:longint;

  istr, a,b,c,d,e,f :string;

begin

  clrscr;

  writeln('Altı haneli polindromik sayıların listesi :');

  for i:=100000 to 999999 do

    begin

      Str(i,istr);

      a:= copy(istr, 1, 1);

      b:= copy(istr, 2, 1);

      c:= copy(istr, 3, 1);

      d:= copy(istr, 4, 1);

      e:= copy(istr, 5, 1);

      f:= copy(istr, 6, 1);

      if (a=f) and (b=e) and (c=d) then

        write(' '+istr+' ');

    end;

    readkey;

end.