СРОЧНО!!! Написать на Pascal шифр Атбаш, не через массив! Присвоив переменной с1:='A B C...Y Z', а переменной с2:='Z Y ...C B A';
СРОЧНО!!!
Написать на 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!
Символы не вошедшие в шаблон замены, не шифруются.
Не нашли ответ?
Похожие вопросы