Ввести слово. Определить является ли оно палиндромом. (Используя div) Pascal Turbo.

Question

Ввести слово. Определить является ли оно палиндромом. (Используя div)
Pascal Turbo.

Answer 1

Var s:string; l,i,k:integer;
begin
readln(s);
l:=length(s);
k:=0;
for i:=1 to l div 2 do
 if s[i]=s[l-i+1] then k:=k+1;
if k=l div 2 then writeln(s,' - палиндром')
else writeln(s,' - не палиндром');
end.

Пример:
kazak
kazak - палиндром