25Кбайт-0.0244 Мбайт
а 2 не знаю
Изображаем условие на кругах Эйлера. Если по запросу "паркур и конкур" ничего не найдено, то тем более ничего не будет найдено по запросу "паркур и конкур и прыжок". Остальные области заполняются однозначно, сначала пересечения, потом, чтобы суммарные количества совпали с условием.
Запросу "паркур или прыжок или конкур" соответствует объединение всех областей, по запросу будет найдено (58 - 32) + (52 - 14) + (99 - 14 - 32) + 14 + 32 + 0 + 0 = (58 + 52 + 99) - (32 + 14 + 0) + 0 = 163 тысячи страниц
Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>
Ответ:
Наприклад обертання фото або якигось об'єктів або виставлення звуку
<span>Microsoft Visual Studio</span>