このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/251
#  【質問テンプレ】  
#  [1] 授業単元: プログラミング演習 
#  [2] 問題文(含コード&リンク): 入力した2つの整数の間 (入力した数も範囲に含める) にある 
#   「2の倍数でない」かつ「3の倍数でない」かつ「5の倍数でない」 
#  の条件を満たす整数を順に表示し,最後にその個数を表示するプログラムを作成せよ 
#  

'入力した2つの整数の間 (入力した数も範囲に含める) にある「2の倍数でない」かつ「3の倍数でない」かつ「5の倍数でない」の条件を満たす整数を順に表示し,最後にその個数を表示する' :-
        入力した2つの整数(N1,N2),
        count((for(N1,N,N2),\+(0 is N mod 2),\+(0 is N mod 3),\+(0 is N mod 5),write_formatted('%t ',[N])),Count),
        write_formatted('\n個数 = %t\n',[Count]).

入力した2つの整数(N1,N2) :-
        催促付き整数入力('開始整数を入力してください : ',N1),
        催促付き整数入力('終了整数を入力してください : ',N2).