3. Определить, является ли слово "перевертышем" { Например, "шалаш", "казак" - перевертыш } program primerl; var s1,s2:string; i:integer; begin end. readln(sl); s2:=1; for i:=length(s1) downto 1 do begin s2:-s2+s1[i]; end; if sl-s2 then writeln(sl, - перевертыш') else writeln(s1, не пер

Ответ: Программа определяет, является ли введенное слово палиндромом (перевертышем).

Описание программы:

• program primerl; - Объявление программы с именем primerl.
• var s1,s2:string; - Объявление переменных s1 и s2 типа строка для хранения введенного слова и его обратной версии.
• i:integer; - Объявление переменной i типа целое число для использования в цикле.
• begin - Начало программы.
• readln(s1); - Чтение введенного слова и сохранение в переменной s1.
• s2:=''; - Инициализация переменной s2 пустой строкой.
• for i:=length(s1) downto 1 do begin - Цикл по буквам слова s1 в обратном порядке.
• s2:=s2+s1[i]; - Добавление каждой буквы из слова s1 в обратном порядке к строке s2.
• end; - Конец цикла.
• if s1=s2 then writeln(s1, ' - перевертыш') else writeln(s1, ' - не перевертыш'); - Сравнение слова s1 с его обратной версией s2 и вывод соответствующего сообщения.
• end. - Конец программы.

Ответ: Программа определяет, является ли введенное слово палиндромом (перевертышем).