Смоделировать шифр Цезаря: пусть пользователь вводит 3-х буквенные слова.Программка должна

Смоделировать шифр Цезаря: пусть юзер вводит 3-х буквенные слова.Программка обязана выводить зашифрованные слова с сдвигом Цезаря, решить в паскаль. Помогите пожалуйста,очень срочно!Заблаговременно благодарю.

Задать свой вопрос
1 ответ
Для строчных русских букв: 

var s:string;
k,i,c:integer; 
begin   
writeln('Введите 3-x буквенное слово:');   
readln(s);   
write('Введите ключ: ');   
readln(k);   
for i:=1 to length(s) do   
begin     
c:=ord(s[i])+k;   
if cgt;1103 then c:=c-32;     
s[i]:=chr(c);     
write(s[i]);   
end;  
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт