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

'20から120までの整数の中で17で割り切れる値をすべて表示し、その総個数を求める' :-
        findsum(N,(
                    for(20,N,120),
                    0 is N mod 17,
                    writef('%t\n',[N])),
                _総個数),
        writef('総個数は%tです。\n',[_総個数]).