Question

помогите с задачей 257д) пожалуйста. Учебник "задачи по программированию" Абрамов. Pascal.

Answer 1

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

begin
  var s:=ReadlnString('Введите строку:');
  s:=s.Left(Pos('!',s)-1);
  Writeln('Пробелов: ',s.Where(c->c=' ').Count);
  Writeln('Буква "ю" в последовательность ',Pos('ю',s)=0?'не ':'',
      'входит');
  if s.Intersect('шина').Count=4 then
    Writeln('Среди символов есть все буквы слова "шина"')
  else Writeln('Среди символов нет всех букв слова "шина"');
  if s.Matches('но|он').Count>0 then
    Writeln('Есть соседствующие буквы "он" или "но"')
  else Writeln('Нет соседствующих букв "он" или "но"');
  if s.ToCharArray.Pairwise((x,y)->x=y).Count>0 then
    Writeln('Есть пара соседствующих одинаковых символов')
  else Writeln('Нет пары соседствующих одинаковых символов')
end.

Пример:
Введите строку: наша пища хороша, но не так, чтобы очень. соответственно, мы не очень толсты! как-то так.
Пробелов: 12
Буква "ю" в последовательность не входит
Среди символов есть все буквы слова "шина"
Есть соседствующие буквы "он" или "но"
Есть пара соседствующих одинаковых символов