[dubfire]

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Подсчитать количество сим-волов в самой длинной группе.

подскажите.

[Sky.NET]

Во-первых, пиши информативное название темы. В теме уже предполагается, что тебе нужна помощь.
Во-вторых, тебе уже писали очень похожий ответ в какой-то из твоих тем "помогите". Стоит всего-лишь немножко напрячь мозг.
Подсказка:
Найди длину первой группы, сравни со следующей. Если больше, то замени длину новой и при окончании цикла получишь требуемый ответ.

[dr. F.I.N.]

Код:

function GroupLength(Source: String): Integer;
var
  i, tmp: Integer;
begin
  Result := 0;
  if Length(Source) = 0 then Exit;
  tmp := 0;
  for i := 1 to Length(Source) do
  if Source[i] in ['0'..'1'] then Inc(tmp)
  else 
  begin
     if tmp > Result then Result := tmp;
     tmp := 0;
  end;
  if tmp > Result then Result := tmp;
end;

[v1s2222]

Только добавь Trim, т.к. может быть несколько пробелов (лишних)

Сообщение от dr. F.I.N.

Код:

function GroupLength(Source: String): Integer;
var
  i, tmp: Integer;
begin
  Source := Trim(Source); // удаляем лишние пробелы
  Result := 0;
  if Length(Source) = 0 then Exit;
  tmp := 0;
  for i := 1 to Length(Source) do
  if Source[i] in ['0'..'1'] then Inc(tmp)
  else 
  begin
     if tmp > Result then Result := tmp;
     tmp := 0;
  end;
  if tmp > Result then Result := tmp;
end;

[dr. F.I.N.]

Эти пробелы абсолютно никак не помешают. Эта срока лишняя.

[v1s2222]

Сообщение от dr. F.I.N.

Эти пробелы абсолютно никак не помешают. Эта срока лишняя.

Извиняюсь, согласен, я на код не смотрел, смотрел на задачу, а в задаче сказано - один, или несколько пробелов...