\Каждые восемь минут Алекс зажигает одну свечку. Каждая свечка горит ровно 35 минут, а затем гаснет. Сколько свечек будет

вот такой макрос в excel моделирует задачу:
Sub ppp()

Cells.ClearContents

kk = 1
nn = 1
For ii = 1 To 1000
If ii Mod 8 = 0 Then
Cells(nn, 1) = 1
Cells(nn, 2) = ii
nn = nn + 1
kk = kk + 1
End If
For ll = 1 To ii
If ii > Cells(ll, 2) + 35 And Cells(ll, 1) > 0 Then
Cells(ll, 1) = 0
kk = kk - 1
End If
Next ll
Cells(nn, 3) = kk
Next ii
End Sub

а на картинке видно что будет гореть 5 свечей)))) )