このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/904
#  [1] 授業単元: forとかwhileとか  
#  [2] 問題文(含コード&リンク):  ある整数を入力し,その約数をすべてと約数の個数を表示するプログラムを作成しなさい. 
#   

ある整数を入力し,その約数をすべてと約数の個数を表示する :-
    get_integer(N),
    count((for(1,M,N),0 is N mod M,write_formatted('%t ',[M])),Count),
    write_formatted('\n約数の個数は%tです\n',[Count]).