Версия для печати темы

Автор: Hunt666 25.11.2006 19:42

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

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

Автор: lapp 25.11.2006 19:45

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

Автор: Hunt666 25.11.2006 20:01

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

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

Автор: lapp 25.11.2006 20:04

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

Автор: Hunt666 25.11.2006 20:18

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

Автор: мисс_граффити 25.11.2006 20:21

http://forum.pascal.net.ru/index.php?showtopic=6972

Автор: Hunt666 25.11.2006 21:01

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

Автор: мисс_граффити 25.11.2006 21:12

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

Автор: Гость 25.11.2006 21:35

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

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 25.11.2006 21:38

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