Question

Написать через программу ПаскальABC.NET 8.4. Ввести текстовую строку S, состоящую из прописных букв русского алфавита. Выяснить, является ли эта строка палиндромом, то есть, читается ли она одинаково слева направо и справа налево. Пример: строка ‘ТОПОТ’ является палиндромом, а строка ’ТОПОР’ – нет. Получить результат для следующих исходных данных: Исходные данные A) S=’ШАЛАШ’ B) S=’АННА’ C) S=’ОКНО’ баллов даю много задача трудная

Answer 1

Var  s : string;
i, j, n : integer; 
f : boolean;
begin 
readln(s); 
n := length(s); 
i := 1; j := n; 
f := false;   
while (i <= j) do   
begin     
if(s[i] = s[j])       
then f := true       
else f := false;     
i := i + 1;     
j := j - 1;     
if not f       
then break;   
end;   
if f   
then write('Палиндром')   
else write('Не палиндром');
end.