| N теста | Данные | Результат |
| Slovo = ''казак'' | Otvet = ''Перевертыш'' | |
| Slovo = ''коза'' | Otvet = ''Не перевертыш'' |
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(' — не перевертыш'); ReadLnEND.
Пример 3. B заданном тексте одно заданное слово везде заменить на другое заданное слово такой же длины.