Помогите решить задачу(строки), Найти пробелы Опции

[Alexey]

Есть задача:
найти максимальное число идущих вподряд пробелов в вводимом тексте

заранее спасибо!!!

киньте если есть готовую задачу или идеи...

[Lapp]

Идея простая.. Примерно так:

for i:=1 to Length(s) do if s[i]=' ' then begin
  Inc(n);
  if n>m then Inc(m)
end
else n:=0;

[18192123]

Идея простая.. Примерно так:

for i:=1 to Length(s) do if s[i]=' ' then begin
  Inc(n);
  if n>m then Inc(m)
end
else n:=0;

Lapp , объясни пожалуйста, за что у тебя отвечает переменная m?

Сообщение отредактировано: 18192123 - 23.03.2007 21:42