Зашифровать строку, изменив код каждого символа на число N - Pascal ABC

Формулировка задачи:

Дана строка(Любое предложение). Зашифровать её, изменив код каждого символа на число N

Код к задаче: «Зашифровать строку, изменив код каждого символа на число N - Pascal ABC»

textual
var i,n:integer;
    s:string;
begin
 write('s = ');readln(s);
 write('n = ');readln(n);
 for i:=1 to length(s) do s[i]:=chr(abs(255+ord(s[i])+n mod 255)mod 255);
 writeln(s)
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы