Помогите составить программку string 3,буду очень признательна,очень срочно необходимо.Вот условие:
Помогите составить программку string 3,буду очень признательна,очень безотлагательно нужно.
Вот условие: Имеется строчка текста. Нужно написать программку, которая зашифровывала бы ее в другую строчку сменяя каждый знак текста эмблемой, следующим по порядку в таблице ASCII. Тогда слово КОТ превратится в слово ЛПУ. Требуется составить и программку дешифровки.
Использовать функции для работы с символами: chr и ord pascal.
НО Чтобы ОНА БЫЛА СОСТАВЛЕНА НАПОДОБИЕ ЭТОЙ Задачки
var s, encoded_s: string;
i: integer;
begin
write('Введите строку: ');
readln(s);
for i:=1 to length(s) do
encoded_s:=encoded_s + chr(ord(s[i]) + 1);
writeln(encoded_s);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.