Option Explicit
Sub abcd()
Dim a As Double, b As Double, eps As Double, i As Integer
eps = Cells(1, 1)
a = 2
i = 1
Cells(i + 1, 1) = a
Do
b = (2 + a * a) / (2 * a)
i = i + 1
Cells(i + 1, 1) = b
If Abs(b - a) < eps Then Exit Do
a = b
Loop
Cells(1, 2) = i
End Sub
Этот код помещается в проекте на лист. На этом листе в A1 надо записать желаемую точность, например 0.0000001.
В ячейку A2 будет помещено число шагов, а значения будут выводиться в первую колонку со второй строки.
3) 55
5) 7
6) 5
Объяснение:
№3
Оператор "НЕ" означает то, что условие в скобках после него должно быть ложным, чтобы оператор возвращал True. Это значит, что число x должно быть не меньше 45, т. е. x >= 45 (больше или равно), а также число x должно иметь хотя бы 2 одинаковые цифры. Наименьшее такое число - это 55.
ответ: 55.
№5
Факт того, что, выполнив последовательность команд 11211, мы получим из 9 число 60, можно записать в виде уравнения:
(9 + b + b) * 2 + b + b = 60
Раскроем скобки:
9 * 2 + 2b + 2b + b + b = 60
Подсчитаем количество b:
9 * 2 + 6b = 60
Заменим 9 * 2 результатом:
18 + 6b = 60
Если известны сумма и первое слагаемое, то можно посчитать второе слагаемое, вычтя из суммы первое:
6b = 60 - 18
6b = 42
42 / 6 = 7
b = 7
ответ: b = 7.
№6
Оператор or(или) возвращает True, если хотя бы одно из подаваемых ему значений равно True. Это значит, что мы попадём в первую ветку if, если хотя бы одно из выражений:
s > 10
t > 10
будет выполняться.
Случаев, когда s > 10 или t > 10 в входных данных только 5.
ответ: 5.
