このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1337692704/714
#  【 課題 】3で割り切れる数の自然数の中で、7で割ったとき「2余らない数」を求めて下さい。 
#  【 形態 】Javaアプリケーション(main()で開始) 
#  【 GUI  】制限なし 
#  【 期限 】9月6日 
#  【 Ver  】javac 1.7.0_25 
#  【 補足 】 
#  1、出力は小さい順に、かつ1行に10個ずつ、合計90個出力する 
#  2、行の先頭には、行番号(1からスタート)とコロン(:)を出力する 
#   
#   
#  よろしくお願いします。 
# 
# 

'3で割り切れる数の自然数の中で、7で割ったとき「2余らない数」を求めて下さい。
1、出力は小さい順に、かつ1行に10個ずつ、合計90個出力する 
2、行の先頭には、行番号(1からスタート)とコロン(:)を出力する' :-
        between(1,90,_個),
        '3で割り切れる数の自然数の中で、'(_3で割り切れる数の自然数),
        '7で割ったとき「2余らない数」を求めて下さい。'(_3で割り切れる数の自然数,_3で割り切れる数の自然数の中で7で割ったとき2余らない数),

        '1、出力は小さい順に、かつ1行に10個ずつ、合計90個出力する 
2、行の先頭には、行番号(1からスタート)とコロン(:)を出力する'(_個,_3で割り切れる数の自然数の中で7で割ったとき2余らない数),
        _個 = 90.

'3で割り切れる数の自然数の中で、'(_3で割り切れる数の自然数) :-
        '3で割り切れる数の自然数の中で、'(1,_3で割り切れる数の自然数).

'3で割り切れる数の自然数の中で、'(_3で割り切れる数の自然数,_3で割り切れる数の自然数) :-
        0 is _3で割り切れる数の自然数 mod 3.
'3で割り切れる数の自然数の中で、'(_自然数_1,_3で割り切れる数の自然数) :-
        _自然数_2 is _自然数_1 + 1,
        '3で割り切れる数の自然数の中で、'(_自然数_2,_3で割り切れる数の自然数).

'7で割ったとき「2余らない数」を求めて下さい。'(_数,_7で割ったとき2余らない数).
        \+(2 is _数 mod 7).

'1、出力は小さい順に、かつ1行に10個ずつ、合計90個出力する 
2、行の先頭には、行番号(1からスタート)とコロン(:)を出力する'(_個,_数) :-
        '行の先頭には、行番号(1からスタート)とコロン(:)を出力する'(_個).
'1、出力は小さい順に、かつ1行に10個ずつ、合計90個出力する 
2、行の先頭には、行番号(1からスタート)とコロン(:)を出力する'(_個,_数) :-
        0 is _個数 mod 10,
        writef(' %t\n',[_数]).
'1、出力は小さい順に、かつ1行に10個ずつ、合計90個出力する 
2、行の先頭には、行番号(1からスタート)とコロン(:)を出力する'(_個,_数) :-
        \+(0 is _個数 mod 10),
        writef(' %t',[_数]).

'行の先頭には、行番号(1からスタート)とコロン(:)を出力する'(_個) :-
        1 is _個 mod 10,
        _行 is (_個 // 10) + 1,
        writef('%t:',[_行]),
        fail.