[Pascal]Обработка строк

[maxg5]

Дана символьная строка.Зашифровать в ней все латинские символы с помощью подстановки A=>b=>c...y=>z=>a

[Колядин Максим]

Зашифровать все латинские символы с помощью подстановки A=>b=>c...y=>z=>a

Если я правильно понял, то у тебя A=>b (А равно больше B) т.е = "C"?
Решение: Сдвигаем текст на 2 буквы вправо, предусматриваем защиту от выхода за интервал маленьких и больших латинских букв.

Код: Выделить всё

uses crt])+2);                     {+2 - это сдвиг на 2 буквы вправо}
  if (ord(s2[i])>90) and (ord(s2[i])<97) then s2[i]:=chr(ord(s2[i])-26);
  if (ord(s2[i])>122) then s2[i]:=chr(ord(s2[i])-26);
  end;
  writeln(s2);
  readkey;
  end.

Если твоё условие (A=>b) подразумевает A=B, тогда измени в строке s2:=s2+chr(ord(s[)+2); двойку на однёрку.