Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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