Помогите составить программу string 3,буду очень благодарна,очень срочно нужно. Вот...

Question

Помогите составить программу string 3,буду очень благодарна,очень срочно нужно. Вот условие: Имеется строка текста. Требуется написать программу, которая зашифровывала бы ее в другую строку — заменяя каждый символ текста символом, следующим по порядку в таблице ASCII. Тогда слово КОТ превратится в слово ЛПУ. Требуется составить и программу дешифровки. Использовать функции для работы с символами: chr и ord pascal. НО ЧТОБ ОНА БЫЛА СОСТАВЛЕНА НАПОДОБИЕ ЭТОЙ ЗАДАЧИ

---

Answer 1

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.

Comments

Спасибо огромное,а что означает encoded_s?

---

Это просто название переменной, в которой хранится "зашифрованная" строка

---

Можете назвать ее по-своему

---

Ещё раз спасибо)))

---

Не за что