Строки

[Hottab]

Напишите функцию Count, которая получает два параметра str1 и str2, типа string и возвращает число, указывающее сколько раз str2 встречается в str1. Функция не должна изменять свои параметры . Кроме того, любая литера в str1 может учитываться не более чем в одном вхождении str2. Например count ('Балалайка','ала') должна возвращать 1, а не 2

Люди помогите плиз, иначе мне капец

[DomiNick]

Пользоваться какими-то функциями можно или только посимвольно?

[Hottab]

ваще хз, я даж не понял че сделать надо, она обьянила я еще больше запутался

[Serge_Bliznykov]

вот мой вариант:

function Occurs(str1, str2 : string ) : integer;
var
  i, Result : integer;
begin
  Result := 0;
  i := 1;
  while i<= (Length( Str1 ) - length( Str2) + 1) do begin
    if Copy(str1,i,length(Str2)) = Str2 then begin
         Inc(Result);
         i := i + length(Str2)
    end
    else i := i + 1
  end;
  Occurs := Result;       
end;

[Hottab]

спасиб, буду пробывать сделать задачу