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