このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1364700745/833
#  お願いします。 
#  [1] 情報処理演習 
#  [2] 自然数n > 0 を入力として, その自明でない約数(1とその数以外の約数)を一つ出力するプログラムを作 
#  成せよ. 
#   [3.1] Linux 
#   [3.2] コンパイラ名とバージョン:visual studio 2010 
#   [3.3] C言語 
#  [4] 指定なし 
#  [5] 特になし 
# 
# 

'自然数n > 0 を入力として, その自明でない約数(1とその数以外の約数)を一つ出力する' :-
        '自然数n > 0 を入力として'(_n),
        'その自明でない約数(1とその数以外の約数)を一つ出力する'(_n),!.

'自然数n > 0 を入力として'(_n) :-
        整数を得る('自然数n > 0',_n > 0,_n).

'その自明でない約数(1とその数以外の約数)を一つ出力する'(_n) :-
        _n_1 is _n - 1,
        between(2,_n_1,_m),
        0 is _n mod _m,
        writef('%t\n',[_m]).