>>755
% Prolog 5/7 はうっかりミスということにして。bignumの必要あり。

'1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(_分子,_分母) :-
  '1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(97,_分
子,_分母).


'1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(97,97,99) :- !.
'1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(N,_分子,_分母) :-
  M is N + 2,
  '1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(M,_分子2,_分母2),
  _分子1 is ( N * _分母2 + M * _分子2),
  _分母1 is M * _分母2,
  約分(_分子1,_分母1,_分子,_分母),!.