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

@Markches · Регистрация: 08.10.2016

Студворк — интернет-сервис помощи студентам

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

@vint-81 · 18.10.2016, 17:45

Pascal

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.

@Markches 0 / 0 / 0 Регистрация: 08.10.2016 Сообщений: 12
		1
	Зашифровать строку, изменив код каждого символа на число N 18.10.2016, 13:03. Показов 1150. Ответов 1 Метки нет (Все метки) Дана строка(Любое предложение). Зашифровать её, изменив код каждого символа на число N 0

Опции темы

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

Решение