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

[Merlin]

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

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

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

[klem4]

Ну все ... теперь я точно понял что ты от нас хочешь

в строке ammnmnmn

удаляем выделенные символы ... получается amnnn

uses crt;
var
   s : string;
   i : byte;

begin
   clrscr;
   readln(s);

   i := 1;

   while (i<=length(s)) and (s[i] <> 'a') do inc(i);

   inc(i);

   if i<=length(s) then begin
      if not(odd(i)) then inc(i);
      while(i<=length(s)) do begin
         delete(s,i,1);
         inc(i);
      end;
   end;

   writeln('s=',s);

   readln;
end.

А задача звучала в таком случае у тебя некорректно, дожно быть так : После первого вхождения буквы A удалить все символы, стоящие на нечетных позициях Я прав ?!

Сообщение отредактировано: volvo - 6.11.2006 1:42