このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1263824755/847
#  [1] 授業単元:C++   
#  [2] 問題文(含コード&リンク):  
#  入力した整数の桁を数えるプログラムを作成せよ 
#  整数値を入力せよ 
#  5659693 
#  7桁である。 
#   
#  プログラムの一部を以下に示す 
#  ____{ 
#  a=a/10; 
#  keta++; 
#  }_____ 
#  ___ 
#  を穴埋めしてください。 
#  

入力した整数の桁を数える :-
      催促付き整数入力('整数値を入力せよ\n',N),
      入力した整数の桁を数える(N,_桁),
      write_formatted('%t桁である。\n',[_桁]).

入力した整数の桁を数える(N,1) :- 0 is N // 10,!.
入力した整数の桁を数える(N,X) :-
      M is N // 10,
      入力した整数の桁を数える(M,Y),
      X is Y + 1.