Информатика 8 класс

Question

Информатика 8 класс

Лара Митькина Ученик (182), закрыт 3 дня назад

Напиши программу,которая будет расшифровывать это сообщение если известно,что в исходном вместо каждой буквы записана следующая по алфавиту( вместо z была записана а).чтобы узнать порядковый номер буквы используйте функцию ord(),а для получения символа по порядковому коду -chr().ввод ifmmp вывод hello. В сообщении использовались только строчные английские буквы.

Answer 1

Пишу программу. Вводим зашифрованное слово. Для расшифровки сдвигаем номер буквы на одну позицию влево. При сдвиге номера буквы "а" заменяем номером буквы "z". Функция LowerCase (St) переводит все латинские буквы в строчные (чтобы не было путаницы с кодами)

var St, New : string; Cod : integer;

begin
New := '';
Write (' Введи слово строчными английскими буквами : '); ReadLn(St);
St := LowerCase(St);
for var i := 1 to Length (St) do
begin
Cod := Ord(St[i])-1;
If Cod = 96 then Cod := 122;
New := New + Chr(Cod);
end;
WriteLn ( ' Было зашифровано слово: ', New);
end.