Строки

[Lilen]

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

[ViktorR]

Только как пример:
Имеем исходную строку si и строку результата - sr.
Пусть переменная n - номер слова и вначале равна 1.
пусть m - номер символа в результирующей строке и вначале равен 1.
1. Присматриваем исходную строку в цикле и символы четных слов переносим в результирующую строку.
Не забываем добавлять пробел.

sr :=  ''; {Очистим результирующую строку}
n := 1; {первое слово нечетное}
m := 1; 
for k := 1 to length(s1) do {до конца исходной строки}
   if ((n mod 2) = 0) then {четное слово}
      if si[k] <>' ' then {не конец слова}
         begin
            sr[m] := si[k]; {копируем символы слова}
             m := m + 1;
         end
      else            {конец слова}
      begin
         sr[m] := ' '; {добавим пробел}
         m := m + 1;
         n : = n + 1; {следующее слово}
      end;

Что-то в этом роде ...

[Lilen]

Может быть я что-то не понимаю, написала код, не работает...

var i,k,m,n:integer;
s,sr,s1,si:string;
begin
writeln('введите строку слов');
readln(si);
sr :=' '; {Очистим результирующую строку}
n := 1; {первое слово нечетное}
m := 1;
for k := 1 to length(si) do {до конца исходной строки}
   if ((n mod 2) = 0) then {четное слово}
      if si[k] <>' ' then {не конец слова}
         begin
            sr[m]:= si[k]; {копируем символы слова}
             m := m + 1;
         end
      else            {конец слова}
      begin
         sr[m]:=' '; {добавим пробел}
         m:= m + 1;
         n:= n + 1; {следующее слово}
      end;
writeln(sr);
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.