Паскаль
1) Задана строка, проверить есть ли в этой строке буква "а"
2) задана строка, проверить сколько раз встречаться в этой строке буква "м"
3) задана строка, удалить из этой строки все буквы "и"

1)var  s: string;begin  writeln('Введите строку: ');  readln(s);  if pos('а', s) <> 0 then writeln('В строке есть буква "а"')  else writeln('В строке нет буквы "а"');end.2)var  s: string;  i, a: byte;begin  a := 0;  writeln('Введите строку: ');  readln(s);  for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;  writeln('В строке буква "м" встречается ', a, ' раз(а)');end.3)var  s: string;begin  writeln('Введите строку: ');  readln(s);  while pos('и', s) <> 0 do delete(s, pos('и', s), 1);  writeln('Строка после удаления букв(ы) "и": ', s);end.