一道pascal编程题，请高手帮忙！！

来源：百度知道 编辑：UC知道 时间：2024/06/07 06:58:58
任意输入三个字母，由程序判断其中是否包含字母表的相邻字母。如果是，输出true，否则输出false.
例如输入字母为gpf
其中g和f是字母表中的相邻字母，此时应输入true

快啊
谢了
方法越多越好，谢谢！！！

program t1;
var z,x,c:char;
begin
read(z,x,c);
if z:=Pred(x) or z:=Pred(c) or x:=Pred(c)
then write(true)
else if z:=Succ(x) or z:=Succ(c) or x:=Succ(c)
then write(trun)
else write(false);
end

用ord函数转啊

fillchar(a,sizeof(a),0);
for i:=1 to length(st) do
inc(a[ord(st[i])-96]);
for i:=1 to 25 do
if (a[i]>0) and (a[i+1]>0) then
begin
writeln('true');
exit;
end;
writeln('false');