Разворот строки — проект на Delphi

DP.12 · Строки

Задача

Ввести строку и вывести её в обратном порядке.

Алгоритм

Цикл от последнего символа к первому дописывает каждый символ в новую строку.

Исходный код

program ReversStroki;
{$mode delphi}{$apptype console}
uses SysUtils;
var s, r: string; i: Integer;
begin
  Write('Строка: '); ReadLn(s);
  r := '';
  for i := Length(s) downto 1 do r := r + s[i];
  WriteLn('Реверс: ', r);
  ReadLn;
end.

Пояснения

Тот же результат даёт функция ReverseString из модуля StrUtils.