怎么判断数字是否是偶数?

Question

怎么判断数字是否是偶数?请给出代码.

Answer 1

if odd(i) then //奇数

Answer 2

有个函数叫oddif not odd(X) then

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
    if StrToInt(Edit1.Text) mod 2=0 then
    ShowMessage('偶数')
    else
    ShowMessage('奇数');
end;

Answer 4

更简单一点的话,就
procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
    i:=strtoint(edit1.Text);
    if (i mod 2=0) then
        showmessage('是偶数')
    else
        showmessage('不是偶数');
end;
mod在这里的作用就是取余数,就是除以2,如果雨数是0的话,就是偶数,反之则不是.