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

样例输出 Sample Output

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.

哈哈，USACO 2009 October Round 的题还真是挺弱啊~

用字符串读入，看最后一位是不是0或2或4或6或8就行了，也幸亏是用2除~