Tyvj P1025 单数？双数？
背景 Background
USACO OCT09 1ST
描述 Description
Bessie那惨无人道的二年级老师搞了一个有 N (1 <= N <= 100) 个正整数 I (1 <= I
<= 10^60) 的表叫Bessie去判断“奇偶性”（这个词语意思向二年级的学生解释，就是“这个
数是单数，还是双数啊？”）。Bessie被那个表的长度深深地震精到了，竟然跟栋栋的泛做表
格一洋多道题！！！毕竟她才刚刚学会数数啊。
写一个程序读入N个整数，如果是双数，那麼在独立的一行内输出"even"，如果是单数则类似
地输出"odd".
输入格式 Input Format
* 第一行: 一个单独的整数: N
* 第2到第N+1行: 第j+1行有第j个需要判断奇偶性的整数。
输出格式 Output Format
* 第1..N行: 第j行根据第j个整数的奇偶性输出一个单词"even"或者"odd"
样例输入 Sample Input
2
1024
5931
even
odd
时间限制 Time Limitation
各个测试点1s
注释 Hint
1024可以被2整除; 而5931不可以。
program p1025;
var
i,n,l:longint;
s:ansistring;
c:array[1..100]of boolean;
begin
readln (n);
for i := 1 to n do
begin
readln (s);
l := length(s);
if (s[l]='0')or(s[l]='2')or(s[l]='4')or(s[l]='6')or(s[l]='8')
then c[i]:=true else c[i]:=false;
end;
for i := 1 to n do
if c[i] then writeln ('even') else writeln ('odd');
end.
