Verificando se um inteiro é par ou ímpar

Implemente uma função com o seguinte código:


function ParImpar(aNum: Integer): Boolean;

begin

  Result := ((aNum div 2) = (aNum/2));

end ;

Para testar, basta utilizar o seguinte código:


if ParImpar(5) then

  ShowMessage('Par')

else

  ShowMessage('Ímpar');

por Luciano Pimenta