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.