Обработка символьных строк (данных типа String).

[Legky]

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

Если не трудно, напишите прог-у. Заранее благодарен.
Буду вдвойне благодарен, если программа будет с подсказками (то есть ход решения про-ги). Желательно написать программу попроще, без сложных элементов.

[Mad_Cat]

еще раз напоминаю язык то указывайте)

Буду вдвойне благодарен, если программа будет с подсказками. Желательно написать программу попроще, без сложных элементов.

как с деньгами)

Извините, денег пока нет)

ну тогда - попытки решения есть7
вот для затравки

s:=edit1.text;
s:=trim(s);
s:=s+' ';
while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);
while pos(' ',s)<>0 do begin
s1:=copy(s,1,pos(' ',s)-1);
if not odd(length(s1)) then label1.Caption:=label1.Caption+s1+#13#10;
delete(s,1,pos(' ',s));
end;

[Legky]

если нуб в программировании правильно понял ваш вопрос, то программу надо надо написать в Borland Delphi. Язык программирования Pascal.

Извините, денег пока нет)

procedure TForm1.Button1Click(Sender: TObject);
var s,str:string; i:integer;
const n=[',',' ','.',#13,#10,'!','?'];
begin
str:=edit1.Text;
for i:=1 to length(str)-1 do
if not (str[i] in n) then
s:=s+str[i] else
if length(s)>0 then  begin
if length(s) mod 2 =0 then
label1.Caption:=label1.Caption+s+#13#10;
s:='';
end;
end;

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

[Mad_Cat]

procedure TForm1.Button1Click(Sender: TObject);
var s,str:string; i:integer;
const n=[',',' ','.',#13,#10,'!','?'];// разделители
begin
str:=edit1.Text;// исходная строка
for i:=1 to length(str)-1 do // цикл по строке
if not (str[i] in n) then // если тек символ не разделитель
s:=s+str[i]  //  прибавляем его к слову
else  // иначе
if length(s)>0 then  begin // если длина слова >0 
if length(s) mod 2 =0 then   // и если она четная 
label1.Caption:=label1.Caption+s+#13#10;// выводим слово в label
s:=''; // начинаем новое слово
end;
end;

[Legky]

Сообщение от Mad_Cat

procedure TForm1.Button1Click(Sender: TObject);
var s,str:string; i:integer;
const n=[',',' ','.',#13,#10,'!','?'];// разделители
begin
str:=edit1.Text;// исходная строка
for i:=1 to length(str)-1 do // цикл по строке
if not (str[i] in n) then // если тек символ не разделитель
s:=s+str[i]  //  прибавляем его к слову
else  // иначе
if length(s)>0 then  begin // если длина слова >0 
if length(s) mod 2 =0 then   // и если она четная 
label1.Caption:=label1.Caption+s+#13#10;// выводим слово в label
s:=''; // начинаем новое слово
end;
end;

спасибо большое)