Информатика, опубликовано 2018-08-22 17:43:27 by Гость
Даны две строки: S и S0.Проверить, содержится ли строка S в строке S0. Если да, то вывести "ДА", если не содержится вывести "НЕТ"
Ответ оставил Гость
Var s,s0:string;
begin
writeln(Введите строку s:);
readln(s);
writeln(Введите строку s0:);
readln(s0);
if pos(s,s0)>0 then writeln(ДА) else writeln(НЕТ);
end.
Пример:
Введите строку s:
две
Введите строку s0:
Даны две строки
ДА
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на