Buscar por:
Código function TestaParaPar(TestaInteiro : Integer) : boolean; begin if (TestaInteiro div 2) = (TestaInteiro/2) then result := True else result := False; end;
function TestaParaPar(TestaInteiro : Integer) : boolean; begin if (TestaInteiro div 2) = (TestaInteiro/2) then result := True else result := False; end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009