Question

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

Answer 1

var

 s, s1: string;

 

begin

 readln(s);

 readln(s1);

 if Pos(s1, s) > 0 then

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

 else

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

end.