Question

请问在Delphi中，如何判断一个整数是奇数，还是偶数？

Answer 1

在 Delphi 语言中，判断一个整数是奇数还是偶数，可以使用以下办法：

一、使用函数

delphi 语言提供了 Odd 函数专门用于检测给定表达式的奇偶性，其函数原型定义如下：

function Odd(X：Integer): boolean;

二、自己计算

根据奇偶的定义，能被 2 整除的偶数，反之就是奇数。


综合上述，给出示例代码供参考：

procedure TForm2.Button2Click(Sender: TObject);
var x: Integer;
begin
  x := 1;
  if Odd(x) then
    ShowMessage(' x  是奇数')
  else
    ShowMessage(' x  是偶数');

  x := 2;
  if (x mod 2)=0 then
    ShowMessage(' x  是偶数')
  else
    ShowMessage(' x  是奇数');
end;

Answer 2

if x mod 2=0 then write('偶数') else write('奇数');

Answer 3

function odd(x:longint):boolean;
检查是否为奇数