Введенную строку вывести в обратном порядке - Pascal

  1. Помогите с решением задачи. Введенную строку вывести в обратном порядке (с последней буквы начинается и первой заканчивается) Формат ввода В входном файле с именем "changeling.in" записана строка текста. Гарантируется, что в строке не более 1000 символов, включая пробелы, а также текст состоит только из букв латинского алфавита нижнего регистра (маленькие буквы) и знаков препинания. Формат вывода В выходной файл с именем "changeling.out" выводится строка текста, удовлетворяющая условию задачи

textual

Код:

const fname='changeling';
var
  f: Text;
  s: array [0..1000] of Char;
  i: Integer;
begin
  Assign(f,fname+'.in'); Reset(f);
  ReadLn(f,s); Close(f);
  Assign(f,fname+'.out'); Rewrite(f);
  i:=0; while s[i]<>#0 do Inc(i); Dec(i);
  for i:=i downto 0 do Write(f,s[i]);
  WriteLn(f); Close(f);
end.

Похожие ответы
  1. Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку

  1. Зашифровать введенную с клавиатуры строку, заменой символов на символы с кодом, меньшим на две единицы. Провести дешифровку.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика