Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
[DE/GER] Caesar Chiffre (Entschlüsseln)
program CaesarChiffre; //Entschlüsseln const Starttext='Sxpybwkdsu wkmrd Pboeno'; //Eigenen Text zum Entschlüsseln hier eingeben var i,ASCIICode,Key:integer; Endtext:string; begin Endtext:=''; Key:=10; //Eigenen Schlüssel hier eingeben for i:=1 to length(Starttext) do begin ASCIICode:=ord(Starttext[i]); if ASCIICode<=ord('Z') then if ASCIICode=ord(' ') then Endtext:=Endtext+chr(ASCIICode) else begin if ASCIICode-Key<ord('A') then Endtext:=Endtext+chr(ASCIICode-Key+26) else Endtext:=Endtext+chr(ASCIICode-Key); end else begin if ASCIICode-Key<ord('a') then Endtext:=Endtext+chr(ASCIICode-Key+26) else Endtext:=Endtext+chr(ASCIICode-Key); end end; write(Endtext); end.
run
|
edit
|
history
|
help
1
Please
log in
to post a comment.
Задача №1516. Проверка на простоту (цикл while)
Obrni listu
Урок 3 задача 1 повышенная сложность. Задача 1484. Усложнённая.
abcd...
cond basico 1
3e22
ariketa 05
test15
Подсчёт количества целочисленных точек внутри круга радиуса r
Huong11a2@
stackse - search stackoverflow differently
Please log in to post a comment.