Строковые массивы, задачка на слова Опции

[Hunt666]

Вот такая задачка:
Ввести строку символов.В этой строке удалить все слова с нечетными номерами.

зы я не смог пронумеровать слова

[Lapp]

зы я не смог пронумеровать слова

Выложи, что сделал, пожалуйста.

[Hunt666]

дело в том что без нумеровки строк то что я сделал не имеет смысла

просто посоветуйте как лучше нумеровать слова

[Lapp]

просто посоветуйте как лучше нумеровать слова

А нужно ли нумеровать? Просто удаляй через одно, начиная с первого..

[Hunt666]

а как это сделать
ведь как я понимаю процедура delete удалает из строки слово определенной длины

[мисс_граффити]

читал?

[Hunt666]

читал непонял

Сообщение отредактировано: Hunt666 - 25.11.2006 21:08

[мисс_граффити]

что именно не понял?

[Гость]

вот что получилось интересно тут есть ошибки?

program stroka;
var i:integer;
    str,str2:string;
begin
 ReadLn(str);
 i:=1;
 str2:=str+' ';
 str:='';
 while length(str2)>0 do begin
  if (i mod 2)<>0 then
   str:=str+copy(str2,0,pos(' ',str2));
  Delete(str2,0,pos(' ',str2));
  inc(i);
 end;
 WriteLn(str);
 ReadLn;
end.

[Hunt666]

ой не от себя написал и
нужно <> заменить на =