И опять эта строка.. Опции

[Merlin]

Задача : Составить программу для вычеркивания из слов текста всех букв, стоящих на нечетных местах после буквы "а".

Помогите разобраться с задачкой.

1. Под вычёркиванием понимется удаление ?
2. Не могу что то разобраться, как найти буквы, стоящие на нечётных местах ?

[klem4]

тебе же volvo показал как надо сделать ...

1 вариант :

i := 2;
while(i<=length(s)) do begin
   if s[pred(i)] = 'a' then
     delete(s,i,1);
   inc(i,2);
end;

2 вариантб чувствительный к сдвигу, то есть из строки

amama получится aaa, это наверное и нужно

i := 2;
   while(i<=length(s)) do begin
      if s[pred(i)] = 'a' then begin
         delete(s,i,1);
         dec(i);
      end;
      inc(i,2);
   end;

Сообщение отредактировано: volvo - 5.11.2006 21:41