profile
Опубликовано 5 лет назад по предмету Информатика от ZakkDC

задано предложение y состоящее из слов строк.проверить встречается ли данное слово x в предложении y.Паскаль СРОЧНО ребят.

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.1, сборка 1230 от 27.04.2016
    begin
      var y:=ReadlnString('Предложение:').ToWords;
      var x:=Readlnstring('Слово:');
      if y.Where(w->w=x).Any then Writeln('Найдено')
      else Writeln('Не найдено')
    end.

    Тестовые решения:
    Предложение: а роза упала на лапу азора
    Слово: лапу
    Найдено

    Предложение: а роза упала на лапу азора
    Слово: лапа
    Не найдено