Question

Дан произвольный текст. Определить является ли он палиндромом (например шалаш-казак) ПАЙТОН​

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 - палиндром

Объяснение: