Factors of an integer: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 5,460: | Line 5,460: | ||
r += [a*b for a in r for b in e] |
r += [a*b for a in r for b in e] |
||
return r</lang> |
return r</lang> |
||
<lang QB64> |
|||
'Task |
|||
'Compute the factors of a positive integer. |
|||
'These factors are the positive integers by which the number being factored can be divided to yield a positive integer result. |
|||
Dim Dividendum As Integer, Index As Integer |
|||
Randomize Timer |
|||
Dividendum = Int(Rnd * 1000) + 1 |
|||
Print " Dividendum: "; Dividendum |
|||
Index = Int(Dividendum / 2) |
|||
print "Divisors: "; |
|||
While Index > 0 |
|||
If Dividendum Mod Index = 0 Then Print Index; " "; |
|||
Index = Index - 1 |
|||
Wend |
|||
End |
|||
</lang> |
|||
=={{header|Quackery}}== |
=={{header|Quackery}}== |