Написать программу на языке Паскаль :
Определить наличие в строке S подстроки Х. Вывести на экран соответствующее сообщение.
Ответы
Ответ дал:
0
begin
var s := ReadString('Введите строку:');
var x := ReadString('Введите подстроку строку:');
if Pos(x, s) <> 0 then
Print('Подстрока присутсвует')
else
Print('Подстрока отсутсвует');
end.
Похожие вопросы
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад