Регистрация
moldirkenesova
31.03.2022 01:50
Информатика
Есть ответ 👍

Help. Необходимо зашифровать свою фамилию и имя(Москалева Юлия) с следующих шифров: -полибианского квадрата;
-шифрующей системы Трисемуса;
-шифра Playfair;
-таблицы Трисемуса;
-блочной одинарной перестановки;
-табличной маршрутной перестановки;
-шифры с использованием треугольника;
-магический квадрат(размер квадрата -4х4);
-двойной перестановки.
Выбрать один из Написать программу на Pascal. С объяснением

265
407
Посмотреть ответы 1

Ответы на вопрос:

evstratovamash1
evstratovamash1
4,5(96 оценок)
  function dele (s : string) : string;   var    l,i : integer;   begin    l : = length (s);     i : = l;     while i> 0   do      begin      if (s[i] = ' ') and (i< l) then        if s[i+1] = ' ' then        begin          delete (s,i,1);           i : = i -1;         end;       i : = i -1;       end;     result : = s;   end;       var    a : string;   begin  readln (a);   writeln (dele(a));   end.

Популярно: Информатика