Напишите, пожалуйста, программу на Free Pascal. Определить, является ли заданная строка подпоследовательностью исходной строки. С использованием строковых функций.

Ответ

Автор - BobbyFresnel

var

s, s1: string;

begin

readln(s);

readln(s1);

if Pos(s1, s) > 0 then

write('является')

else

write('не является');

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.