Сообщение - рубикон перейден, сдвиг - 27 Для расшифровки можно использовать программу: const st='ХШЖНПУТ ФКХКОЙКТ'; var i,j:integer; s:string; begin for i:=25 to 30 do begin s:=''; for j:=1 to length(st) do if st[j]<>' ' then s:=s+chr(ord(st[j])+i) else s:=s+' '; writeln(s); end; end.
Для расшифровки можно использовать программу:
const st='ХШЖНПУТ ФКХКОЙКТ';
var i,j:integer; s:string;
begin
for i:=25 to 30 do
begin
s:='';
for j:=1 to length(st) do
if st[j]<>' ' then s:=s+chr(ord(st[j])+i) else s:=s+' ';
writeln(s);
end;
end.