このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1328276597/167
#  [1] 情報科学入門 
#  [2]  (1)1から1000までの間に、3と7の倍数の値がいくつ含まれているのか求めるプログラムを書け。 
#     (2)キーボードから西暦年を入力し、その年がサッカーワールドカップ開催年かどうかを判定するプログラムを作成せよ。 
#  

'1から1000までの間に、3と7の倍数の値がいくつ含まれているのか求めるプログラムを書け。'(_3と7の倍数の数) :-
        count((for(1,N,1000),0 is N mod (3 * 7)),_3と7の倍数の数).