строковый тип данных, чуток непонятно Опции

[kosiak]

Добрый вечер дамы и господа прошу вашей помощи!!! Задача такова: Дана строка, состоящая из нескольких слов. За последним словом- точка. Напеча-тать эту же последовательность слов, но в обратном порядке. Я вроде сделал но непонятен один момент.

Program son_stroki;
  Var
     u,s:string;
     L,i,j:integer;
   Begin
     Writeln('BBedite cloBa');
     Readln(s);
      Begin
      I:=1;
        repeat
         L:=i;
         While  (s[i]<>' ') and (s[i]<>'.') do
         I:=i+1;      {прграмма работает только в том случае если выражение I:=i+1 повторяется два раза подряд
         I:=i+1;                                       почему???? обьясните или поправьте если неверно !!!ПОЖАЛУЙСТА!!!}
       Until s[i-1]='.';
       For j:=length(s) downto 1 do
       Write(s[j]);
       end;
   End.

Сообщение отредактировано: volvo - 2.11.2006 10:30