このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/501
#  連投すいません 
#  後1問あります 
#   
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  60 から7352 の自然数n のうち、9 または14 または19 の倍数に該当する自然数の総和を求めよ 
#   
#  

'60 から7352 の自然数n のうち、9 または14 または19 の倍数に該当する自然数の総和を求めよ'(_総和) :-
        findsum(_n,(
                    for(60,_n,7352),
                    '9 または14 または19 の倍数'(_n)),
                _総和).

'9 または14 または19 の倍数'(_n) :-
        0 is _n mod 9,!.
'9 または14 または19 の倍数'(_n) :-
        0 is _n mod 14,!.
'9 または14 または19 の倍数'(_n) :-
        0 is _n mod 19,!.