Из строки слов, разделенных пробелами, удалить слова, число символов у которых нечетно.

[Аелд]

Ребятки,помогите разобраться.
Не знаю как записать условие.
я понял,что последний символ в таких словах имеет нечетный номер и получил такое условие:

if (i mod 2<>0) and (s[i]<>' ')

.Это верно?

[Вадим Мошев]

Если слова разделяются не одним, и несколькими пробелами, причём, каждый раз кол-во - разное, то может быть всё что угодно.
Пример:

лл   ттт

(здесь три пробела, последняя буква т - восьмой по счёту символ)

Я советую выделять и анализировать каждое слово в пердложении

// Выделяем по одному слову в предложении и аналилизируем
    i:=1;
    w:='';
    while i <= length(s) do
      begin // пропускаем пробелы
        if s[i] = ' ' then
          begin
            inc(i);
            continue;
          end;

        j:=i;
      // выделение (получение слова) происходит именно здесь
        while (s[j] <> ' ') AND (j <= length(s)) do
          begin
            w:=w + s[j];
            inc(j)
          end;


        // W - слово. Его можно обрабатывать, сравнивать....

          // переходим к следующему пробелу в строке (к пробелу после текущего слова)
            inc(i, length(w));

          // обнуление служебных параметров
            w:='';

      end;

Впрочем, этот вариант - более универсальный, в вашем же случае надо находить позицию первой буквы этого слова и его длинну.

[Аелд]

Сообщение от Вадим Мошев

Если слова разделяются не одним, и несколькими пробелами, причём, каждый раз кол-во - разное, то может быть всё что угодно.
Пример:

лл   ттт

(здесь три пробела, последняя буква т - восьмой по счёту символ)

ну это я знаю как проверить