17 lines
221 B
Text
17 lines
221 B
Text
for k = 1 to 5
|
|
{
|
|
n=2
|
|
count = 0
|
|
print["k=$k:"]
|
|
do
|
|
{
|
|
if length[factorFlat[n]] == k
|
|
{
|
|
print[" $n"]
|
|
count = count + 1
|
|
}
|
|
n = n + 1
|
|
} while count < 10
|
|
|
|
println[]
|
|
}
|