Дано задание. Пересчитать значения элементов вектора М размерности n по правилу:Mk=(Mk + 2)/ (Mk - 2), при Mk не равным 2 .Проанализировать выполнение программы на примере: М={2; 0; 3; 10; -1; 6; 1; 2} Необходим скрин с выполненным решение, результат. Private Sub Command1_Click()

Dim M, k As Integer

M = Array(2, 0, 3, 10, -1, 6, 1, 2)

PrintArray "Исходный вектор", M

For k = LBound(M) To UBound(M)

If M(k) <> 2 Then M(k) = (M(k) + 2) / (M(k) - 2)

Next k

PrintArray "Результат", M

End Sub

Private Sub PrintArray(ByVal ArrayName As String, ByRef M As Variant)

Dim k As Integer

Print

Print ArrayName

For k = LBound(M) To UBound(M)

Print M(k) & " ";

Next k

Print

End Sub

Здравствуйте сегодня мы разберем правила работы с интернетом. Интернет это большая сеть которая покрывает весь мир. Бывают много видов интернета начиная с Wi-Fi, Enthernet заканчивая VPN Моб.данные и другие. Сначала давайте разберем что такое интернет и зачем он нам нужен.

Интернет-Сеть покрывшая землю и подсоеденненвя уже почти к каждому гаджету с разных сервисов самые популярные WiFi и Enthernet интернет придназначен для того чтобы делиться информацией по этой сети интернета с одного компьютеоа на другой с малейщими задержками ( ping m/s).Преступим к правилам!

1. Не разглашай свои пароли от соц.сетей и от другиз сервисов.

2.Бужь осторожен не заходи на странные неизвемтные сайты по крайней мере будь защищен антивирусом хоть они и в некоторых случаях не являются защитой!

3. Не скачивай игры,софты,приложения с пиратских сайтов многие из них захватывают с собрй пару не нужных приложений а также вирусы (браузерные)

4. Если ты увидишь подозрительную рекламу в интернете не жми это возможно мошенники

5. Не разговаривай с посторонними

6. Также не разглашай данные банк.карточки на посторонних сайтов и не говори пин код карты! Его никто не имеет право спросить!

На этом все желаю вам чтобы вы не попадались на уловки мошенников. УДАЧИ!

                             если после деления остаётся остаток, то пишем '1'
287 / 2 = 143,5       1
143 / 2 = 71,5         1
71 / 2 = 35,5           1
35 / 2 = 17,5           1
17 / 2 = 8,5             1
8 / 2 = 4                 0
4 / 2 = 2                0
2 / 2 =1                  0
1 / 2 =0,5               1
Ноль уже не делиться, значит завершаем деления и записываем полученные           (1 и 0) в обратном порядке т.е с конца
получается  287=100011111

2)
101011011
1*2^8 + 0*2^7 + 1*2^6 + 0*2^5 + 1*2^4 + 1*2^3 + 0*2^2 + 1*2^1 + 1*2^0 = 1*256+0*128+1*64+0*32+1*16+1*8+0*4+1*2+1*1  = 347