Question

Помогите с расшифровкой Цезаря : Расшифруйте ...фирхвдуя , и с шсусыгв тсжcзг

Answer 1

Program SHIFR_CEZERYA; 
uses crt; 
var a,b,c:string; 
i,j,k,d,g:integer;
begin  
clrscr; 
 writeln('Шифрование? 1-да, 0-нет');
  readln(g); 
 writeln('Исходный текст '); 
 readln(a);  
writeln('ключ'); 
 readln(d); 
 c:=''; 
  b:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; 
 for i:=1 to length(a) do
  for j:=1 to length(b) do  
begin
   If g=1
then k:=(j+d) mod 33
else k:=(j-d)mod 33;  
 if a[i]=b[j]
then c:=c+b[k]; 
 If k>33
 then k:=k-33
else k:=k+33; 
 end; 
writeln(c); 
readkey;
 end.