Question

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

Answer 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.

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

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

Answer 2

Для проверки, встречается ли слово x в предложении y, можно воспользоваться различными методами. Один из способов - разделить предложение на отдельные слова и проверить, содержится ли слово x в этом списке слов.

Вот пример кода на языке Паскаль, который реализует эту проверку:

program CheckWord;
var
  sentence, word: string;
  words: array of string;
  i: integer;
  found: boolean;
begin
  // Ввод предложения и слова для проверки
  writeln('Введите предложение:');
  readln(sentence);
  writeln('Введите слово для проверки:');
  readln(word);
  
  // Разделение предложения на отдельные слова
  words := sentence.Split([' ']);
  
  // Проверка наличия слова в списке
  found := False;
  for i := 0 to Length(words) - 1 do
  begin
    if words[i] = word then
    begin
      found := True;
      Break;
    end;
  end;
  
  // Вывод результата
  if found then
    writeln('Слово "', word, '" найдено в предложении.')
  else
    writeln('Слово "', word, '" не найдено в предложении.');
end.

Вы можете скопировать этот код в среду разработки Паскаль и запустить его, чтобы проверить, встречается ли слово x в предложении y.