вывести строку в обратном порядке - справа налево ( lazarus )

[lililili]

Создать приложение, которое позволяет вводить строку и выводит ее в обратном виде, т.е. при вводе «Привет» выведется «тевирП».

_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[tmtm]

Писал в Delphi, но идея должна быть понятна:

var
 s: string;
 i, n: integer;
 c: char;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Stroka: ');
  readln(s);
  n:=length(s);
  for i:=1 to n div 2 do
   begin
    c:=s[i];
    s[i]:=s[n-i+1];
    s[n-i+1]:=c;
   end;
  writeln(s);
  readln;
end.

[Serge_Bliznykov]

tmtm, строго говоря, Вы решили другую, чуть более сложную задачу: вы переставили в самой строке символы так, что они стали в обратном порядке.

Если автору топика нужно именно "ВЫВЕСТИ" строку, то,
вполне возможно, что подойдёт и такой код:

  readln(s);
  for i:=length(s) downto 1 do
    Write(s[i]);
  WriteLn;