Benu

Hmm, o mai fi deschis la Bricostore?! Sa ma duc sa cumpar niste becuri... :-?

alex1512

raman probabil numerele prime, mai putin 2

lucianclaudiu

numerele patrate perfecte o sa ramana aprinse

wmutex

Ce inseamna a actiona? A stinge un bec?

Sau asta depinde de starea becului? A "actiona" un bec stins inseamna a-l aprinde, a "actiona" un bec aprins inseamna a-l stinge?

wmutex

Ok, toate becurile sunt aprinse initial, iar becul cu numarul n isi va schimba starea la fiecare pas k>1 in care k este divizor al lui n.

Deci, daca D(n) este numarul de divizori naturali, diferiti de 1, al lui n, atunci:

D(n) = impar   ==>   becul cu nr n va fi stins la final.
D(n) = par   ==>   becul cu nr n va fi aprins la final.

Nu exista o formula tocmai frumoasa pentru nr. de divizori naturali ai unui numar natural. Se poate demonstra relativ usor ca, daca:

n = (p1^e1)(p2^e2)...(pu^eu)

unde p1, ... pu sunt numere prime, iar e1, ... eu sunt exponentii corespunzatori factorizarii, atunci:

D(n) = (1+e1)(1+e2)...(1+eu) - 1

Ok, pt calcule las pe cineva care are mai multa rabdare si mai putina treaba decat mine. :-)

catanedelcu

Sub Button1_Click()
For i = 1 To 100
Sheet1.Cells(i, 1) = 1
Next i
For j = 2 To 100
k = j
i = j
While i <= 100
   Z = Sheet1.Cells(i, 1)
   If Z = 1 Then
   Sheet1.Cells(i, 1) = 0
   Else
   Sheet1.Cells(i, 1) = 1
   End If
   i = i + k
Wend
Next j
End Sub


raman patratele perfecte, intr-adevar, cum a zis deja   lucianclaudiu  mai sus.