par:- write('digite um numero'), read(N), parImpar(N). parImpar(N):- R is N mod 2, R == 0, write('par'),!. parImpar(_):- write('impar').
Compartilhar