Надо вместо букв поставить цифры
Никто не решится наверное) да еще на ночь глядя)
Function tet2n(n As Integer) As Integer
Dim i As Integer
i = 8
Do While i * (i + 1) * (i + 2) / 6 > n
i = i - 1
Loop
tet2n = i
End Function
Excel VBA
Истинность может меняться в высказывании:
2. Потому что погода изменчива.
4. Бывают слова с разным количеством слогов
5. Мне кажется 5-ое тоже, так как смотря какие улицы взять.
Хотя, все же, только 2 и 4