Umiestnenie súboru www.TrSek.com/beginner/danciwo/palindrom.pas

{ PALINDROM.PAS                               Copyright (c) Danciwo }
{ Program zisti ci zadane 6 ciferne cislo je palindrom.             }
{                                                                   }
{ Author: Danciwo                                                   }
{ Date  : 15.02.2008                           http://www.trsek.com }

program palindrom;
uses crt;

var a:array[1..6] of integer;  { Cislo prevedieme z retazca na pole }
    s:string;                  { Sem nacitame nase cislo            }
    v1:boolean;
    v2:boolean;
    v3:boolean;
    i:integer;

begin
clrscr;
readln(s);
v1:=false; v2:=v1; v3:=v1;    { Naplnenie premennych nepravdou }

for i:= 1 to 6 do        { Prevod retazca na pole cisel   }
     val(s[i],a[i],a[i]);

if a[1]=a[6] then v1:=true;
if a[2]=a[5] then v2:=true;     { Porovnavanie cifier cisla      }
if a[3]=a[4] then v3:=true;

{ Vyhodnotenie zlozenej podmienky }
if((v1=true) and (v2= true) and (v3= true))then
   writeln('Zadane cislo je palindrom.')
else
   writeln('Zadane cislo nie je palindrom.');

readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com