10/01/29 22:28:41
>>521 (>>515) 一部表示し直し
% Prolog
'キーボードから(標準入力から)１つの十進数表現の正の整数を受け取って、その数が３の倍数かまたは各桁の数字のいづれかに３が入っている数ならば画面に(標準入力に)YES、そうでなければ、NOと出力せよ' :-
'キーボードから(標準入力から)１つの十進数表現の正の整数を受け取って(_正の整数),
その数が３の倍数かまたは各桁の数字のいづれかに３が入っている(_正の整数,_診断),
write_formatted('%t\n',[_診断]),!.