>>749
% Prolog

'標準入力から入力した自然数を変数iに格納し i<(2のj乗)となる最小の自然数jを求める。ただし再帰関数を用いる。'(J) :-
　　催促付き整数入力('自然数を入れてください :',I),
　　'i<(2のj乗)となる最小の自然数jを求める'(1,0,I,J).

'i<(2のj乗)となる最小の自然数jを求める'(J1,J,I,J) :- J1 > I,!.
'i<(2のj乗)となる最小の自然数jを求める'(J1,_,I,J) :-
　　J2 is J1 * 2,
　　'i<(2のj乗)となる最小の自然数jを求める'(J2,J1,I,J).