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

Объяснение:

Answer 2

Для определения, является ли данный текст палиндромом, мы должны удалить из него все пробелы, знаки пунктуации и привести все буквы к одному регистру, чтобы исключить различия в написании. Затем сравнить текст с его обратной версией и проверить, является ли он палиндромом. В данном случае текст "ПАЙТОН" не является палиндромом, так как он не одинаков читается справа налево и слева направо.