Дано слово,опеределить входит ли это слово в предложениии(да/нет)

Question

Дано слово,опеределить входит ли это слово в предложениии(да/нет)

Comments

Слово и предложение вводятся пользователем?

---

да

Answer 1

//PascalABC.Net 3.0, сборка 1064
var
  s,w:string;
begin
  Write('Введите предложение: '); Readln(s);
  Write('Введите искомое слово: '); Readln(w);
  s:=' '+s+' ';
  if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
  else Writeln('Слово не входит в предложение')
end.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)

Answer 2

//Pascal ABC.NET Версия 2.2 Сборка 790
var s,sub:string;
begin;
writeln('Введите предложение:');
readln(s);
writeln('Введите слово:');
readln(sub);
if pos(sub,s)<>0 then writeln('Да') else writeln('Нет');
//pos() возвращает позицию подстроки в строке. Если её нет, возвращает 0
end.

Пример работы программы:
Введите предложение:
Глеб не любит велосипеды
Введите слово:
велосипеды
Да

Comments

спасибо