このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1307166756/589
#  [1] C言語演習 
#  [2] for文を使用して以下のプログラムを作成せよ。 
#     0から100までの奇数だけの和を求めて表示するプログラム 
#    ◆0から2011までの奇数の個数を求めて表示するプログラム 
#   [3.1] Windows7 
#   [3.3] C言語 
#  [4] 水曜19時まで 
#  [5] 多重ループまで 
#  どなたかよろしくお願いします。  
# 
# 

'0から1000までの奇数だけの和を求めて表示する'
        '0から1000までの奇数だけの和を求めて'(_和),
        項名付きで表示する(和,'',_和).

'0から1000までの奇数だけの和を求めて'(_和) :-
        findsum(_奇数,(
                    for(0,_奇数,100),
                    1 is _奇数 mod 2),
                _和).

'0から2011までの奇数の個数を求めて表示する' :-
        '0から2011までの奇数の個数を求めて'(_個数),
        項名付きで表示する(個数,個,_個数).

'0から2011までの奇数の個数を求めて'(_個数) :-
        count((     for(0,_奇数,2011),
                    1 is _奇数 mod 2),
                _個数).

項名付きで表示する(_項名,_単位,N) :-
        writef('%tは %t%t です\n',[_項名,N,_単位]).