このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/113
#  [1] 情報処理演習  
#  [2] 整数を読み込み,その整数より小さい3の倍数をすべて表示するプログラムを作りなさい.  
#  ただし,for文を用いた方法とwhile文を用いた方法の両方を考えて,ひとつのプログラムにまとめること.  
#  

'整数を読み込み,その整数より小さい3の倍数をすべて表示する' :-
        整数を読み込み(_整数),
        _開始整数 is _整数 - (_整数 mod 3),
        'その整数より小さい3の倍数をすべて表示する'(_開始整数).

整数を読み込み(_整数) :-
        get_integer(_整数).

'その整数より小さい3の倍数をすべて表示する'(0) :- nl,!.
'その整数より小さい3の倍数をすべて表示する'(N) :-
        writef('%t ',[N]),
        N_1 is N - 3,
        'その整数より小さい3の倍数をすべて表示する'(N_1).