Паскаль,строки

[Lilen]

Задача:
исключить из строки все слова с нечетными номерами, оставшийся текст вывести на экран: (Неправильно, да?) Ничего не выводит.
program adg;
var s:string;
i,j,n:integer;
begin
writeln('vv stroky s=');
readln(s);
for i:=1 to length(s) do
if i mod 2=1 then delete(s[i],1,i);
for i:=1 to length(s) do
write('s=',s);
readln;
end.

[Sciv]

for i:=1 to length(s) do

Этот цикл идет не по словам, а по символам строки. Поэтому удаляет он Вам все нечетные символы.

Далее: в исходном задании написано "исключить"... следует ли это понимать как использование Delete, как у Вас? Потому что проще сформировать новую строку.

[Poma][a]

1) Код выделяем кнопочкой с #
2) Согласен с Sciv'ом, надо бегать по строке в поиске пробела, а потом...
3)

следует ли это понимать как использование Delete, как у Вас?

хм.. В своё время, когда я решал задачи на строки, меня просили (просили - ага-ага) не использовать доп.строк, здесь я думаю точно так же, упражнения на обработку процедур и функций со строками...

[Sciv]

меня просили (просили - ага-ага)

хехе... хоть не умоляли?

Сорри за ОФФ, но просто в живую представил эту картину...

[Poma][a]

хехе... хоть не умоляли?

Да в коленях ползали, просили
Ну а если честно :
-Что это?
-2 результирущая строка
- Иди переделывай

[Stilet]

По моему все гораздо проще:

var i:integer;b:boolean; s:string;
begin
 s:='But I wont cry for yesterday, theres an ordinary world';
 b:=false;
 for i:=1 to length(s) do begin
  if s[i]=' ' then b:=not b;
  if b then write(s[i]);
 end;
 readln;
end.

[Poma][a]

Виталий, впечатляет. Очень хитро.

[Stilet]

Вообще-то старая школа. Раньше такие методы были распространены во многих книгах в силу малого функционала ЯВУ.