Информатика, опубликовано 2018-08-22 19:39:18 by Гость
Расшифруйте слово НУЛТХСЁУГЧЛВ , закодированное с помощью шифра Цезаря , если известно , что каждая буква исходного текста заменяется третьей после неё буквой
Ответ оставил Гость
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var keyword:=АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯАБВ;
var encoded:=НУЛТХСЁУГЧЛВ;
var decoded:=;
for var i:=1 to encoded.Length do
decoded+=keyword[keyword.LastIndexOf(encoded[i])-2];
Writeln(decoded)
end.
Результат выполнения программы:
КРИПТОГРАФИЯ
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на