Паскаль
Зашифровать слово, поставив букве ее номер в алфавите.

Var s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i] in [А..Я] then write(ord(s[i])-ord(А)+1, )
else write(ord(s[i])-ord(а)+1, );
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.