Смоделировать шифр Цезаря: пусть пользователь вводит 3-х буквенные слова.Программа должна выводить зашифрованные слова с сдвигом Цезаря, решить в паскаль. Помогите пожалуйста,очень срочно!Заранее благодарю.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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 c>1103 then c:=c-32;
s[i]:=chr(c);
write(s[i]);
end;
end.