Программа на Delphi

[Loqwer78rus]

Нужна помощь.
Дана строка. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Если слово содержит нечетное количество символов, то в таком слове следует удалить букву, находящуюся по середине.

Не могу даже представить как это сделать. Вот программа "Посчитать кол-во слов в строке по пробелам"

[Stilet]

Пример выделения слов из строки в массив: http://www.programmersforum.ru/showt...369#post398369
Используй его чтоб выделить слово. После выделения проверяй длины слов и удаляй процедурой Delete(). Потом выводи на экран.
Идея понятна?

[Loqwer78rus]

Нет. Как через Delete удалять букву в середине? И как сделать так чтобы программа отличала четное от нечетного?

[Stilet]

Нет.

Пичаль.

Как через Delete удалять букву в середине?

Delete(<строка>,Length(<строка>) div 2 + 1,1);

чтобы программа отличала четное от нечетного?

Length(<строка>) возвращает длину строки.
Дальше используешь mod длинаСтроки 2 = 0 - значит делится на два без остатка.
Или odd(Length(...)) что по сути тоже самое.

[Loqwer78rus]

А можете мне помочь сделать проще. Дано слово, если в слове нечетное количество символов, то программа удаляет букву в середине. Наверное вам некогда Ну заранее благодарен

[Serge_Bliznykov]

Дано слово, если в слове нечетное количество символов, то программа удаляет букву в середине.

пусть слово в переменной sWord : string;
тогда:

if odd(Length(sWord)) then Delete(sWord,  (Length(sWord) div 2) +1, 1);

всё.


UPDATED

Вредно отвечать на вопрос, не прочитав сообщения в теме!
Я сделал это после ответа. Увидел, что мой пост на 99% повтор того, что уже написал Stilet!
если бы прочитал раньше, то, разумеется, не стал ничего писать.
Ну, теперь уж пусть остаётся.
Может быть, повторенное дважды станет в два раза понятнее!