このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/656
#  [1] 授業単元:プログラミング技術 
#  [2] 問題文(含コード&リンク):1^2+2^2+3^2+……+n^2が2000を超えるときのnの値と、そのときの合計を求めるプログラムを作りなさい。 
#  

'1^2+2^2+3^2+……+n^2が2000を超えるときのnの値と、そのときの合計を求める' :-
        '1^2+2^2+3^2+……+n^2が2000を超えるときのnの値と、そのときの合計を求める'(0,_n,0,_合計).

'1^2+2^2+3^2+……+n^2が2000を超えるときのnの値と、そのときの合計を求める'(_n,_n,_合計,_合計) :-
        _合計 > 2000,!.
'1^2+2^2+3^2+……+n^2が2000を超えるときのnの値と、そのときの合計を求める'(M,_n,_合計_1,_合計) :-
        M2 is M + 1,
        _合計_2 is _合計_1 + M2 * M2,
        '1^2+2^2+3^2+……+n^2が2000を超えるときのnの値と、そのときの合計を求める'(M2,_n,_合計_2,_合計).