function TestaParaPar(TestaInteiro : Integer) : boolean;
begin
if (TestaInteiro div 2) = (TestaInteiro/2) then
result := True
else
result := False;
end;
Assinar:
Postar comentários (Atom)
Dicas, Fontes e exemplos para você concluir o seu trabalho com sucesso!!!
Nenhum comentário:
Postar um comentário