Dicas - Verificando se um inteiro é par ou ímpar

Veja nesta dica, como verificar se um inteiro é par ou ímpar.

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

Artigos relacionados