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