Question

Написать программу на языке Паскаль :
Определить наличие в строке S подстроки Х. Вывести на экран соответствующее сообщение.

Answer 1

begin

 var s := ReadString('Введите строку:');

 var x := ReadString('Введите подстроку строку:');

 

 if Pos(x, s) <> 0 then

   Print('Подстрока присутсвует')

 else

   Print('Подстрока отсутсвует');

end.