このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/197
#  連投すみません 
#   
#  [1] 授業単元:プログラミング(1) 
#  [2] 問題文(含コード&リンク): 
#  1~1000までの整数のうち「3の倍数と3の付く数字」の 
#  総和を求めるプログラムを書け 
#   

'1~1000までの整数のうち「3の倍数と3の付く数字」の 総和を求める'(_3の倍数と3の付く数字の総和) :-
        findsum(N,(
                    for(1,N,1000),
                    number_chars(N,L),
                    append(_,['3'|_],L),
                    0 is N mod 3),
                _3の倍数と3の付く数字の総和).