Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Văn A

Cho trước xâu S chứa các kí tự in hoa, chữ số và kí hiệu. Hãy mã hóa xâu S theo kĩ thuật dịch chuyển mô tả:

A thế thành Z, B thế thành Y, C thay thế bẳng X, và tương tự như thế,... Còn các con số và kí hiêu thì không đổi.

VD: TIN HOC TRE HUYEN CHAU THANH 2018!

=> GRM SLX GIV SFBVM XSZF GSZMS 2018!

Minh Lê
8 tháng 5 2019 lúc 20:17

var S:ansistring;
i:longint;
begin
read(S);
for i:=1 to length(S) do
if (ord(S[i])>=65) and (ord(S[i])<=90) then
S[i]:=chr(90-(ord(S[i])-65));
writeln(S);
end.


Các câu hỏi tương tự
PGD FF
Xem chi tiết
PGD FF
Xem chi tiết
Phông
Xem chi tiết
No_pvp
Xem chi tiết
No_pvp
Xem chi tiết
No_pvp
Xem chi tiết
No_pvp
Xem chi tiết
PGD FF
Xem chi tiết
Dragon
Xem chi tiết