奇偶ASCII值判断(pascal)，要具体代码啊啊啊！！ - pascal吧

level 2

题目描述
任意输入一个字符，判断其ASCII是否是奇数，若是，输出YES，否则，输出NO
例如，字符A的ASCII值是65，则输出YES，若输入字符B(ASCII值是66)，则输出NO
输入
输入一个字符
输出
如果其ASCII值为奇数，则输出YES，否则，输出NO

2016年07月17日 06点07分 1

level 7

不难

2016年07月17日 09点07分 2

level 7

var
c:char;
n:integer;
begin
read(c);
n:=ord(c);
if n mod 2=0 then write('NO');
else write('YES');
end.

2016年07月17日 09点07分 3

level 1

const
ResultStrings:array [Boolean] of string=('NO','YES');
var
InChr:Char;
begin
Read(InChr);
WriteLn(ResultStrings[odd(ord(InChr))]);
end.

2016年07月17日 20点07分 4

列宁2003

2016年07月18日 10点07分

列宁2003

这么简单的3L正解，你好像不用这么烦来解决

2016年07月18日 10点07分

我倒是觉得我这个比较方便，用到了布尔表达式可以做数组下标的性质。

2016年07月18日 15点07分

@黄金止手太烦了吧，一函数就解决了

2016年07月21日 00点07分

level 2

用上函数就行了啊

2016年07月20日 00点07分 5