11001000
Объяснение:
1. Для получения прямого кода надо перевести число в двоичную систему счисления, дополнить слева незначащими нулями до необходимого разряда, первый (левый) разряд отводится под знак числа (если число положительное, то в левый разряд записывается 0, а если число отрицательное, то в левый разряд записывается 1)
56/2 = 28 и остаток 0
28/2 = 14 и остаток 0
14/2 = 7и остаток 0
7/2 = 3 и остаток 1
3/2 = 1 и остаток 1
1/2 = 0 и остаток 1
56₁₀ = 111000₂
Прямой код: 10111000
2. Обратный код для положительного числа совпадает с прямым кодом. Для отрицательного числа все цифры числа заменяются на противоположные (1 на 0, 0 на 1), а в знаковом разряде остаётся единица
Обратный код: 11000111
3. Дополнительный код положительного числа совпадает с прямым кодом. Для отрицательного числа дополнительный код образуется путем добавлением к младшему разряду обратного кода единицы (сложение в двоичной системе счисления)
![\left[\begin{array}{}&1&1&0&0&0&1&1&1\\+&&&&&&&&&\\&&&&&&&&1\\&1&1&0&0&1&0&0&0\end{array}\right]](/tpl/images/4736/0917/beaeb.png)
1 + 1 = 10 (0 пишем, 1 в уме)
1 + 1 (из ума) = 10 (0 пишем, 1 в уме)
1 + 1 (из ума) = 10 (0 пишем, 1 в уме)
0+ 1 (из ума) = 1 (1 пишем)
сносим остальные цифры
Дополнительный код: 11001000
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)