sábado, 6 de junho de 2009

Como verificar se um campo inteiro é par ou ímpar?

function TestaParaPar(TestaInteiro : Integer) : boolean;
begin
if (TestaInteiro div 2) = (TestaInteiro/2) then
result := True
else
result := False;
end;

Nenhum comentário:

Postar um comentário