turbo pascal Замена в каждой строке порядка следования символов на обратный

[sanekmihailow]

Замена в каждой строке порядка следования символов на обратный


пожалуйста помогите сегодня зачет(((

[Valio]

Гдето недавно было уже. Юзай поиск.

[Serge_Bliznykov]

задача, строго говоря, элементарная.
но в условии не сказано - откуда брать строки и куда помещать результат.

а по сути:

  repeat
    Write('Введите строку (пустая строка - конец программы): ');
    Readln(s);
    if s<>'' then begin
       for i:=1 to (Length(s) div 2)  do begin
         ch := s[i];
         s[i] := s[ Length(s)+1-i ];
         s[ Length(s)+1-i ] := ch;
      end;
      WriteLn('Перевёрнутая строка: ', s);
   end;
  until s='';