このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1263824755/233
#  [1] 授業単元:プロトタイプ宣言とか引数  
#  [2] 問題文(含コード&リンク): 入力された数字が偶数なら、trueを返す関数。それ以外ならfalse 
#  ()の中に何か入るらしいです () even(int sc) {  
#  

入力された数字が偶数なら、trueを返す関数。それ以外ならfalse(_評価結果) :-
        write('数字を入力してください : '),
        get_integer(_入力された数字),
        入力された数字が偶数なら、trueを返す関数。それ以外ならfalse(_入力された数字,_評価結果).

入力された数字が偶数なら、trueを返す関数。それ以外ならfalse(_入力された数字,true) :-
        偶数(_入力された数字).
入力された数字が偶数なら、trueを返す関数。それ以外ならfalse(_入力された数字,false) :-
        \+(偶数(_入力された数字)).

偶数(N) :-
        integer(N),
        0 is N mod 2.