var ch:char;
n,s:longint;
begin
read(ch);readln(n);
s:=ord(ch)+n;
if s>122 then dec(s,26);
writeln(chr(s));
end.
Free Pascal 字母移位
1个回答
相关问题
-
free pascal 奖学金题目
-
Free pascal：求均值（非计数型循环）
-
free pascal练习题求解答 急！ 求代码
-
用FREE PASCAL 作题 从键盘上读入小写的“pascal”，利用CHR（）和ORD（）函数，输出大写的“PASC
-
noip2012普及组复赛 文化之旅 求Free Pascal 代码（最好带解释）
-
“LOCK”.“FREE”这是电脑椅下面的字母,
-
free pascal习题某本书从1开始,小明算了算,总共出现了202个数1,求书有多少页
-
算术移位与逻辑移位有什么不同之处,最好能给出一个例子演示一下,
-
FREE PASCAL 问题问题描述 输入一个学生的成绩，判定该成绩的等级。其中0~59为E等，60~69为D等，70
-
路程 位移 位移的大小