このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1381909900/194
#  [1] 授業単元:C言語 
#   
#  [2] 問題文(含コード&リンク): 
#   1〜100の整数のうち「6の倍数」の個数を表示するプログラムを作成しなさい、ただし、for文とif文を用いて作成すること 
#  1次元配列を用いて5人分の数学の得点を100点満点で入力し、「数学の得点の最小値と最大値」を画面表示、およびファイルに書き出すプログラムを作成しなさい。ただし、書き出し用ファイル名は「sugaku.txt」にしなさい。 
#   
#  

'1〜100の整数のうち「6の倍数」の個数を表示するプログラムを作成しなさい、ただし、for文とif文を用いて作成すること' :-
        '1〜100の整数のうち「6の倍数」の個数を'(6,0,_6の倍数の個数),
        表示する(_6の倍数の個数).

'1〜100の整数のうち「6の倍数」の個数を'(N,_6の倍数の個数,_6の倍数の個数) :-
        N > 100,!.
'1〜100の整数のうち「6の倍数」の個数を'(N,_6の倍数の個数_1,_6の倍数の個数) :-
        _6の倍数の個数_2 is _6の倍数の個数 + 1,
        N_2 is N + 6,
        '1〜100の整数のうち「6の倍数」の個数を'(N_2,_6の倍数の個数_2,_6の倍数の個数).

表示する(_6の倍数の個数) :-
        writef('6の倍数の個数は %t です\n',[_6の倍数の個数]).