Даны строки S и S0. Найти количество вхождений строки S0 в строку S — Pascal(Паскаль)

program H;
var 
s,s0:string;
i,k:integer;
begin
  s:='databasedata';
  s0:='data';
  k:=0;
  for i:=1 to length(s)-length(s0)+1 do
      begin
      writeln(copy(s,i,length(s0)));
      if copy(s,i,length(s0))=s0 then
            inc(k);
      end;
  writeln(k);
end.

Результат работы программы

Leave a Comment

8 + 1 =