Question

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

Answer 1

var

 s, ss: string;

 ls, lss, i, j: integer;

 flag: boolean;

begin

 readln(s);

 readln(ss);

 i := 1;

 ls := Length(s);

 lss := Length(ss);

 flag := false;

 while i <= ls - lss + 1 do

 begin

   if s[i] = ss[1] then

   begin

     flag := true;

     for j := 1 to lss - 1 do

       if s[i + j] <> ss[j + 1] then

       begin

         i := i + j;

         flag := false;

         break

       end;

     if flag then

     begin

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

       exit;

     end;

   end;

   i += 1;

 end;

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

end.