>>790 (>>794も>>789でなく>>790の解答でした)
% Prolog

課題文３ :-
　　write('一文字入力してください: '),
　　get_line(_行),
　　atom_codes(_行,[_文字コード|_]),
　　課題文３_文字種判別(_文字コード,_文字種別),
　　write_formatted('"%"の文字種別は%です\n',[_文字種別]).

課題文３_文字種判別(C,英小文字) :- C>=97,C=<122,!.
課題文３_文字種判別(C,英大文字) :- C>=65,C=<90,!.
課題文３_文字種判別(C,数字) :- C>=48,C=<57,!.
課題文３_文字種判別(_,それ以外の文字).