Question

pascal语言中如何判定ascii码值的奇偶性 要具体过程啊啊啊！！！

Answer 1

我们假设一个字符s='0';
那么它的ascii码就是x=ord(s);(ord是用来将字符转换成ascii码的)
if x mod 2=0 then writeln('偶数')
else writeln('奇数');

追问

具体代码

追答

不是有了吗
var
a:longint;
ch:char;
begin
读入ascii码，或字符
a=ord(ch);
if a mod 2=0 then writeln('偶数')
else writeln('奇数');
end.