このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1260532772/158
#  [1] 授業単元:計算機基本 
#  [2] 問題文(含コード&リンク): 
#  1から500までの整数から、3の倍数を1行に10個ずつ表示するプログラムを作れ。ただし、一個の整数を表示する桁数を5桁に指定すること。 
#  

'1から500までの整数から、3の倍数を1行に10個ずつ表示するプログラムを作れ。ただし、一個の整数を表示する桁数を5桁に指定すること' :-
        findall(M,(for(1,M,500),0 is M mod 3),L),
        '10個ずつ表示'(L).

'10個ずつ表示'([]) :- !.
'10個ずつ表示'([A,B,C,D,E,F,G,H,I,J|R]) :-
        write_formatted('%5d%5d%5d%5d%5d%5d%5d%5d%5d%5d\n',[A,B,C,D,E,F,G,H,I,J]),
        '10個ずつ表示'(R),!.
'10個ずつ表示'(L) :-
        append(_,[N|R],L),
        write_formatted('%5d',[N]),
        R = [],
        write('\n'),!.