Строковые переменные

[nisha]

Дана строка символов. определить число вхождений в строку группы букв: а) abc; б) aba.

[Риндера]

k := 0;
while pos('abc', YourString) <> 0 do
begin
  inc(k);
  delete(YourString, 1, pos('abc', YourString)+2);
end;

Для "aba" абсолютно аналогично

[Stilet]

От себя могу предложить:

MODULE Вхождение;
IMPORT StdLog;

PROCEDURE Сверяем(i:INTEGER;Цто:ARRAY OF CHAR;Куда:ARRAY OF CHAR):BOOLEAN;
VAR k:INTEGER;b:BOOLEAN;
BEGIN
 b:=TRUE;
 k:=0;
 WHILE (Цто[k]#CHR(0)) DO
  IF Цто[k]#Куда[k+i] THEN
   RETURN FALSE;
  END;
  INC(k);
 END;
 RETURN b;
END Сверяем;

PROCEDURE Сколько*(Цто:ARRAY OF CHAR;Куда:ARRAY OF CHAR);
VAR k,i:INTEGER;
BEGIN
 k:=0;StdLog.Clear;
 FOR i:=0 TO LEN(Куда)-1 DO
  IF Сверяем(i,Цто,Куда) THEN INC(k);END;
 END;
 StdLog.Int(k);
END Сколько;

END Вхождение.

[Риндера]

Stilet, это на каком языке?) Уже который пост меня мучает этот вопрос..)