Определить кодовое смещение и расшивровать предложение

@aidoqa · Регистрация: 08.02.2011

Студворк — интернет-сервис помощи студентам

Дано зашиврованное предложение на русском языке (способ Шифрования описан в задании №3)
и его расшиврованный первый символ С. Определить кодовое смещение к и расшивровать предложение .
как мне изменить программу чтобы она выполняла расшивровку

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Uses
 CRT;
const
  alf: array[1..2] of string=('абвгдеёжзийклмнопрстуфхцчшщъыьэюя','АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ');
var
  s2,s: string;
  i,j,k,pos1,pos2: integer;
begin
ClrScr;
write('Введите строку: ');
readln(s);
repeat
 write('Введите ключ: ');
 readln(k);
until k in [1..10];
s2:= '';
for i := 1 to length(s) do
 begin
  for j := 1 to 2 do
   begin
    pos1 := pos(s[i], alf[j]);
    if pos1>0 then
     break
   end;
   if pos1 > 0 then
   begin
    pos2:=1+(pos1 + k-1) mod length(alf[j]);
    s2:=s2 + alf[j][pos2];
   end
   else
    s2:=s2+s[i];
 end;
writeln('Зашифрованная строка:=',s2);
readkey
end.

Заранее спасибо!

@aidoqa · 08.04.2011, 20:22 **[ТС]**

Не по теме:

можно и морально если не трудно

Новые блоги и статьи Все статьи Все блоги /
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .

@aidoqa
	08.04.2011, 20:22 [ТС]
	Не по теме: можно и морально если не трудно 0