Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

СРОЧНО!!!
Написать на Pascal шифр Атбаш, не через массив! Присвоив переменной с1:=A B C...Y Z,
а переменной с2:=Z Y ...C B A;

Ответ оставил Гость

Const
  s1=ABCDEFGHIJKLMNOPQRSTUVWXYZ;
  s2=ZYXWVUTSRQPONMLKJIHGFEDCBA;
var
  i,p:integer;
  s:string;
begin
  Write(Введите текст: ); Readln(s);
  for i:=1 to Length(s) do
  begin
    p:=Pos(s[i],s1);
    if p>0 then s[i]:=s2[p]
  end;
  Writeln(Результат: ,s)
end.

Тестовое решение:
Введите текст: HELLO, WORLD!
Результат: SVOOL, DLIOW!

Символы не вошедшие в шаблон замены, не шифруются.