Решите надо

1. Робот стоит где-то на поле неизвестного размера, где-то правее его есть закрашенная клетка. Напишите алгоритм, исполняя который, Робот закрасит еще одну клетку слева от себя на таком же расстоянии от начального положения, что и правая клетка. Робот должен вернуться в исходное положение.

2. Робот стоит на поле неизвестного размера. Напишите алгоритм, по которому Робот посчитает расстояние до нижнего левого угла и отойдет на такое же расстояние от противоположного угла.

3. Робот стоит в начале горизонтального коридора шириной в одну клетку, длина его неизвестна. Посчитайте количество клеток в коридоре, у которых уровень радиации выше опасного уровня (для каждой отдельной задачи он может быть разным).

9 килобайт = 9216 байт.
Зная информационный объём рассказа и количество страниц, найдём информационный объём одной страницы. В условии сказано, что каждый символ кодируется 8 битами, т.е. одним байтом. Также мы знаем количество символов в одной строке. Умножив 1 байт на количество символов в строке, найдём информационный объём одной строки. И, наконец, разделив информационный объём страницы на информационный объём строки, найдём количество строк на странице.

1) 9216 : 6 = 1536 (байт) – информационный объём одной страницы.

2) 1 × 48 = 48 (байт) – информационный объём одной строки.

3) 1536 : 48 = 32 (стр.) – количество строк на каждой странице.

ответ: на каждой странице помещается 32 строки.

ПРАВИЛЬНЫЙ ОТВЕТ – 3) 32

Private Sub CommandButton1_Click()

Dim s As Integer, z As Integer

Dim t As String

t = "Для оплате в кассе необходимы:"

s = CInt(InputBox("Введите сумму оплаты"))

Do While s > 0

If s >= 500 Then

s = s - 500: k = k + 1

ElseIf s >= 200 Then

s = s - 200: m = m + 1

ElseIf s >= 100 Then

s = s - 100: n = n + 1

ElseIf s >= 50 Then

s = s - 50: z = z + 1

ElseIf s >= 10 Then

s = s - 10: v = v + 1

ElseIf s >= 5 Then

s = s - 5: h = h + 1

ElseIf s >= 2 Then

s = s - 2: f = f + 1

ElseIf s >= 1 Then

s = s - 1: d = d + 1

End If

Loop

If k > 0 Then

t = t + " " & k & " по 500 рублей, "

t = t + " " & m & " по 200 рублей, "

t = t + " " & n & " по 100 рублей, "

t = t + " " & z & " по 50 рублей, "

t = t + " " & v & " по 10 рублей, "

t = t + " " & h & " по 5 рублей, "

t = t + " " & f & " по 2 рублей, "

t = t + " " & d & " по 1 рублей, "

Cells(10, 1) = t

End If

End Sub