このディレクトリの索引
#  [1] 授業単元:計算機演習
#  [2] 問題文(含コード&リンク):
#  20から120までの整数の中で17で割り切れる値をすべて表示し、
#  その総個数を求めるプログラムを作成しなさい。

'20から120までの整数の中で17で割り切れる値をすべて表示し、その総個数を求める'(_総個数) :-
        総個数を求める(_総個数).

総個数を求める(_総個数) :-
        findsum(N,(
                    '20から120までの整数の中で17で割り切れる値を全て表示し'(N)),
                _総個数).

'20から120までの整数の中で17で割り切れる値を全て表示し'(N) :-
        '20から120までの整数の中で17で割り切れる値を'(N),
        全て表示し(N).

'20から120までの整数の中で17で割り切れる値を'(N) :-
        for(20,N,120),
        0 is N mod 17.

全て表示し(N) :-
        writef('%t\n',[N]).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

findsum(_選択項,_項,_合計値) :-
        findall(_選択項,_項,_値ならび),
        sum(_値ならび,_合計値),!.