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

Kristina238485 Kristina238485    2   20.09.2019 02:10    0

Ответы
45Эвлария 45Эвлария  21.08.2020 12:19
// 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('Буква "о" встречается чаще буквы "е"')
   else Writeln('Буквы "е" и "о" встречаются динаковое число раз')
end.

Пример
Мороз и солнце; день чудесный! Еще ты дремлешь, друг прелестный.
Буква "е" встречается чаще буквы "о"
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика