5 lines
127 B
ObjectPascal
5 lines
127 B
ObjectPascal
|
##
|
||
|
|
function DivisorsCount(n: integer) := Range(1,n).Count(i -> n.Divs(i));
|
||
|
|
|
||
|
|
Range(1,100).Select(n -> DivisorsCount(n)).Println
|