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

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

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

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