このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/615
#  [1] 授業単元: scanf 
#  [2] 問題文(含コード&リンク):http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10668.txt  
#  
# 問1
# 
# キーボードから3つの整数を入力し、1つめに入力された数から
# 2つ目に入力された数までの範囲において、3つめに入力した数の
# 倍数のみを表示するプログラムを作成せよ。
# 
# 
# 問2
# 
# 2つの数A,Bを入力し、AのB乗を求めるプログラムを作成せよ。

'キーボードから3つの整数を入力し、1つめに入力された数から2つ目に入力された数までの範囲において、3つめに入力した数の倍数のみを表示する' :-
        get_integer(N1),
        get_integer(N2),
        get_integer(N3),
        for(N1,N,N2),
        '3つめに入力した数の倍数のみを表示する'(N,N3),
        N = N2.

'3つめに入力した数の倍数のみを表示する'(N,N3) :-
        0 is N mod N3,
        write_formatted('%t\n',[N]),!.
'3つめに入力した数の倍数のみを表示する'(_,_).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'2つの数A,Bを入力し、AのB乗を求める'(A,B,_AのB乗) :-
        _AのB乗 is A ^ B.