Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 88 стр.

             3    -(кц)             да
            1      +                да           "Не
    2                       -
             2    -(кц)             нет      перевертыш"

Turbo Pascal
Program TurnOver;
  Uses Crt;
  Var Slovo       : String;
       Dlina, i : Integer;
       Flag       : Boolean;
BEGIN
  ClrScr;
  Write('Введите слово : '); ReadLn(Slovo);
  Dlina:= Length(Slovo);
      {Сравниваются пары букв: первая буква с последней, }
      {вторая буква с предпоследней и т.д. }
  i:=1; Flag := TRUE;
  While (i <= Dlina/2) and Flag do           {цикл до первой
несовпавшей }
     begin                                   {пары букв (если такая
есть)}
       Flag := (Slovo[i]=Slovo[Dlina-i+1]);
       i := i+1
     end;
  WriteLn; Write( 'О т в е т : слово ', Slovo);
  If Flag then WriteLn(' — перевертыш. ')
             else WriteLn(' — не перевертыш');
  ReadLn
END.


   Пример 7.3. B заданном тексте одно заданное слово везде заменить на другое
                                заданное слово
                               такой же длины.
                                     Тест
                          Данные
                                                                Результат
       Текст               Слово1            Слово2
      ''2sinx+siny''     ''sin''        ''cos''    ''2cosx+cosy''
Школьный АЯ
алг Замена (арг рез лит Текст, арг лит Слово1, Слово2)
  дано | длины Слово1 и Слово2 совпадают
  надо | в строке Текст подстрока Слово1 везде
         | заменена на подстроку Слово2
нач цел i, DS
  DS:=длин(Слово1)
  нц для i от 1 до длин(Текст)-DS+1
    если Текст[i : i+DS-1] = Слово1 | если вырезка равна
Слово1,
       то Текст[i : i+DS-1] :=Слово2 | то вырезке присваиваем
Слово2