Написать через программу ПаскальABC.NET 8.4. Ввести текстовую строку S, состоящую из...

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    <br>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.