Question

. Faça uma função que recebe um número inteiro por parâmetro e retorna verdadeiro se ele for par e falso se for ímpar. Teste o uso dessa função no algoritmo principal, ou seja, peça para o usuário digitar um número inteiro e depois chame a função passando este valor como parâmetro.

Answer 1

 cls
 vNumero:=0
Do while .t.
   @ 10,10 [Digite um numero] get vNumero Picture [9999]  
   Read
   If lastekey()=27
      exit
   endif
   if IsPar(vNumero)
         @ 11, 10 say [==> é PAR] 
  else
         @ 11, 10 say [==> é IMPAR]
  endif
Enddo
Quit

Function IsPar(pNumero)
if  (pNumero/2)-Int(pNumero/2)=0
  Return(True)
else
  Return(False)
endif