Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -4,22 +4,22 @@ max_divisors = 0
|
|||
|
||||
Print "Los primeros 20 anti-primos son:"
|
||||
For j = 0 To 19
|
||||
Do
|
||||
divisors = count_divisors(Candidate)
|
||||
If max_divisors < divisors Then
|
||||
Results[j] = Candidate
|
||||
max_divisors = divisors
|
||||
Exit Do
|
||||
End If
|
||||
Candidate += 1
|
||||
Until false
|
||||
Print Results[j];" ";
|
||||
Do
|
||||
divisors = count_divisors(Candidate)
|
||||
If max_divisors < divisors Then
|
||||
Results[j] = Candidate
|
||||
max_divisors = divisors
|
||||
Exit Do
|
||||
End If
|
||||
Candidate += 1
|
||||
Until false
|
||||
Print Results[j];" ";
|
||||
Next j
|
||||
|
||||
Function count_divisors(n)
|
||||
cont = 1
|
||||
For i = 1 To n/2
|
||||
If (n % i) = 0 Then cont += 1
|
||||
Next i
|
||||
count_divisors = cont
|
||||
cont = 1
|
||||
For i = 1 To n/2
|
||||
If (n % i) = 0 Then cont += 1
|
||||
Next i
|
||||
count_divisors = cont
|
||||
End Function
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue