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