1. замените слово "мама" на "папа" (в паскале) 2. Определите является ли текст перевертышем (например, как слово шалаш) (тоже паскаль)

program zz1;

var s1, s2:string;

i:integer;

begin

write ('введите строку '); / /вводим исходную строку

read (s1);

for i:=1 to length (s1) do / /перебираем все буквы строки от первой до последней

if copy (s1, i, 4) = 'мама' then begin delete (s1, i, 4); insert ('папа', s1, i); end; / /копируем из строки по 4 буквы, сравниваем с "мама", если совпадает, то удаляем их и вставляем на то же место "папа"

writeln (s1); / /выводим ответ

for i:=length (s1) downto 1 do / /перебираем все буквы строки от последней до первой

s2:=s2+s1[i]; / /получаем перевернутую строку

if s1=s2 then write ('перевертыш') else write ('не перевертыш'); / /сравниваем две строки, если совпадают, то "перевертыш", если нет, то нет.

end.