Домашнее задание: 1. Составить программу удаляющую из данного текста все буквосочетания...

Question

Домашнее задание:
1. Составить программу удаляющую из данного текста все буквосочетания «ма» и выводящую получившийся текст и его длину.
2. Составить программу находящую количество букв «с» в тексте.
3. Составить программу определяющую, какая из букв «е» или «о» встречается в тексте чаще.

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var s:=ReadlnString;
  s:=s.RegexReplace('ма','');
  Writeln('Длина=',s.Length,': ',s)
end.

Пример
Ведьма измазала маслом карман гнома
Длина=25: Ведь иззала слом карн гно

№2

begin
  var s:=ReadlnString;
  Writeln('Количество букв "с" равно ',s.Where(t->t='с').Count)
end.

Пример
Ассистент профессора сидел за столом и что-то писал
Количество букв "с" равно 8

№3

begin
  var s:=ReadlnString;
  var d:=s.Where(t->t='е').Count-s.Where(t->t='о').Count;
  if d>0 then Writeln('Буква "е" встречается чаще буквы "о"')
  else
   if d<0 then Writeln('Буква "о" встречается чаще буквы "е"')<br>   else Writeln('Буквы "е" и "о" встречаются динаковое число раз')
end.

Пример
Мороз и солнце; день чудесный! Еще ты дремлешь, друг прелестный.
Буква "е" встречается чаще буквы "о"