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

клубничка125 клубничка125    1   21.10.2020 15:20    3

Ответы
Riiiiiii Riiiiiii  20.11.2020 15:22

begin

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

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

 

 if Pos(x, s) <> 0 then

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

 else

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика