一个pascal的问题。

英文的 Odd 是「奇怪」的意思，Odd Number 當然就是「奇怪的數字」簡稱「奇數」。問題是「奇數」倒底是唸成「ㄐㄧ數」或是「ㄑㄧˊ 數」呢？

输入说明 ：

輸入只有一行，其中含有一個整數 i。

输出说明 ：

如果 i 是奇數，輸出 Odd；如果 i 是偶數，則輸出 Even。

范例输入 ：

若題目沒有特別說明，則應該以多測資的方式讀取，若不知如何讀取請參考 a001 的範例程式。 1

范例输出 ：

Odd 给我个过程，谢谢拉

没楼上那位那么麻烦：

program panduan;

var a:integer;

begin

while not eof do

begin

readln(a);

if odd(a)=true then writeln('Odd')

else writeln('Even');

end;

end.

var i:int64;

begin

if i mod 2=1 then writeln(Odd) else writeln(Even);

end.

这有点像比赛题目的格式啊，还有输入输出，那就按比赛的弄吧。

program oddnom；

type

TF=0..1

var i:longint;

j:TF;

procedure getin;

begin

assign(input,'odd.in');reset(input);

read(i);

close(input);

end;

procedure do1;

begin

if i mod 2=1 then j:=1 else j:=0;

end;

procedure getout;

begin

assign(output,'odd.out');rewrite(output);

if j=0 then writeln('Even') else writeln('Odd');

close(output)

end;

begin

getin;

do1;

getout;

end.

我把这个程序的输入输出作为Odd.*了，如果要测试就路径里头就要有odd.in才能用，odd.out看结果，全部可以用记事本打开进行测试。

PS：这是临时输入的，没有测试的程序我不敢保证。