このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/4
#  [1] 授業単元:繰り返しについて  
#  [2] 問題文(含コード&リンク): for文を用いてsum=1+2+…+k と足していき, 
#    sumが1000を超えるときのkの値を表示するプログラムを作成しなさい。 
#  

'for文を用いてsum=1+2+…+k と足していき,sumが1000を超えるときのkの値を表示する' :-
        for文(1,_k,0),
        writef('累計が1000を超える時のkの値は %t です。\n',[_k]).

for文(_k_1,_k,_sum_1) :-
        _sum_2 is _sum_1 + _k_1,
        _sum_2 =< 1000,
        _k_2 is _k_1 + 1,
        for文(_k_2,_k,_sum_2),!.
for文(_k,_k,_).