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

Ответы 3

  • Запускай только с shift+F9!
  • А ключ должен быть у тебя...
    • Автор:

      sadie
    • 5 лет назад
    • 0
  • 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.
    • Автор:

      khalil
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years