В записке слова зашифрованы — каждое из них записано наоборот. Расшифровать сообщение. (программа Паскаль)

Question

В записке слова зашифрованы — каждое из них записано наоборот. Расшифровать сообщение.

Answer 1

uses crt;
var s,sn,temp: string;
    i: byte;
begin
write('s='); readln(s);   //запрашиваем и считываем строку
temp:='';           //временная строка для перевернутого слова пуста
sn:='';             //строка для расшифрованной строки пока пуста
s:=s+' ';           //добавляем в конец строки пробел, чтобы не потерять последнее слово
for i:=1 to length(s) do       //в цикле с параметром перебираем элементы строки от первого до последнего
    if s[i] in ['A'..'Z','a'..'z','А'..'Я','а'..'я']         //если символ - это буква (то есть часть слова),
     then temp:=s[i]+temp      //записываем его в начало расшифровываемого слова (ведь известно, что слова записаны наоборот)
      else                       //иначе
          begin
          sn:=sn+temp+s[i];    //присоединяем перевернутое (читай, расшифрованное слово) в новую строку и добавляем знак препинания или пробел (что там нам попалось в строке)
          temp:='';            //очищаем временную строку для переворота следующего слова
          end;
writeln('s=',sn);              //выводим расшифровенную строку
readln;
end.