Файл во вложении. Цифры и текст можешь поменять - это не принципиально
Переведем сначала в десятичную:
6^0*5+6^1*2+6^2*3=5+12+108=125
Теперь в пятеричную:
125/5=25(остаток 0)
25/5=5(остаток 0)
Итак получаем:
500.
Проверяем:
5^0*0+5^1*0+5^2*5=125
Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.
Следует четырежды повторить следующую группу действий:
1) закатить в нишу ближайший к ней черный шарик
2) перекатить все шарики в левую часть желоба
3) перекатить все шарики в правую часть ниши
4) перекатить все шарики в правую часть ниши
5) выкатить черный шарик из желоба
Ответ:
Абсолютный адрес
Объяснение:
это адрес, который не изменяется при копировании