{ 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.