Question

запрашивается слово перевернуть его в обратном порядке
паскаль

Answer 1

var

  str1, str2: string;

   

begin

  write('Введите слово: ');

  readln(str1);

   

  for var i := str1.Length downto 1 do

     str2 := str2 + str1[i];

   

  write('Результат: ', str2);

end.