Перевод в 2-ричную систему счисления алгоритм, правило или просто мои проверенные познания: делим число из десятичной системы на 2 потом записываем частное и запоминаем для дальнейшего выведения остатка , если при делении делимое иррациональное то мы отнимаем 1 от делимого и делим на 2, при выведении остатка с рациональным числом мы просто вычитаем их и получаем остаток 0, но при выведении остатка с иррациональным числом мы берём обычное иррациональное уменьшаемое и рациональное вычитаемое (то есть отнимаем 1 от делимого которое в данном случае является уменьшаемым) и при таком раскладе остаток будет 1. то есть если число рациональное то остаток = 0 но если оно иррациональное то остаток = 1
прости но я потратил много времени что бы сформулировать правило ну и проверка это самое лёгкое что казалось, остальное всё исходит из 2-ричной системы счисления.
Материк, носящий название Австралия, занимает площадь 7 659 861 км² в Южном полушарии. Береговая линия имеет длину 35 тыс. км, ширина континента составляет 4000 км, а длина достигает 3700 км.Рядом с Австралией находятся такие острова, как Тасмания и Новая Гвинея. Западное и южное побережье Австралии омываются водами Индийского океана, а восточное и северное побережья – морями Тихого океана.Это Тиморское, Коралловое, Арафурское и Тасманово моря. Также возле северо-восточного побережья Австралии находится самый крупный коралловый риф в мире, Большой Барьерный риф тянется более чем на 2000 км. Ширина его может достигать 150 км.Крайней западной точкой материка является мыс Стип-Пойнт, восточной – мыс Байрона, северной крайней точкой является мыс Йорк, а южная точка Австралии – это мыс Саут-Пойнт.В большой мере Австралия расположена в жарком тепловом поясе, а берега материка немного изрезаны. На юге Австралии находится Большой Австралийский залив, а залив Карпентария находится на севере, как и два полуострова Кейп-Йорк и Арнемленд. Внутренними морями Австралия связана с Юго-Восточной Азией.История исследования материкаСамый маленький из всех, этот материк пришлось искать довольно долго. В 1606 году был открыт пролив, который отделяет Новую Гвинею от материка. Этот пролив был назван именем открывателя – Торрес. И в этом же году мореплаватель Янсзон оказался на побережье залива Карпентария.Через несколько десятилетий, в 1643 году, было доказано, что Австралия представляет собой единую сушу. Доказал это мореплаватель Тасман и также он открыл остров, который впоследствии был назван его именем.В 1770 году Джеймс Кук, будучи известным английским мореплавателем, оказался на восточном побережье самой Австралии. С тех пор начался процесс колонизации англичанами, изучение Австралии, как отдельного континента, и хозяйственное освоение ее территории.Земли Австралии стали называть Новым Южным Уэльсом. В те времена Австралия стала местом ссылки для преступников, осужденных за мелкие нарушения. Позднее поселение, считавшееся британской колонией, было названо Сиднеем. Оно было основано 26 января в 1788 году – основателем является капитан Артур Филип.А территория Тасмании присоединилась к остальным землям Австралии в 1829 году. Середина 19 века – это начало «золотой лихорадки» на территории Австралии, именно для этого периода характерны волны массовой иммиграции в Австралию.А в 1901 году – 1 января – Австралия стала независимым государством, образовав Австралийский Союз.
Объяснение:
1.
Sub Button1_click()
Dim matrix(1 To 2, 1 To 3) As Integer
For i = 1 To 3
matrix(1, i) = 1 ^ 2 + i ^ 2
matrix(2, i) = -matrix(1, i)
Next i
prompt = ""
For i = 1 To 2
For j = 1 To 3
If matrix(i, j) > 0 Then
prompt = prompt & " " & matrix(i, j)
Else
prompt = prompt & " " & matrix(i, j)
End If
Next j
prompt = prompt & Chr(13)
Next i
MsgBox prompt
End Sub
10.
Sub Button1_click()
Dim matrix(1 To 2, 1 To 3) As Integer
upperbound = 25
lowerbound = -25
For i = 1 To 2
For j = 1 To 3
Randomize
matrix(i, j) = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Next j
Next i
prompt = ""
For i = 1 To 2
For j = 1 To 3
If Abs(matrix(i, j)) > 9 And Abs(matrix(i, j)) < 99 Then
prompt = prompt & "A(" & i & "," & j & ")=" & matrix(i, j) & Chr(13)
End If
Next j
Next i
prompt = prompt & Chr(13)
For i = 1 To 2
For j = 1 To 3
If matrix(i, j) > 0 Then
prompt = prompt & " " & matrix(i, j)
Else
prompt = prompt & " " & matrix(i, j)
End If
Next j
prompt = prompt & Chr(13)
Next i
MsgBox prompt
End Sub
11.
Sub Button1_click()
Dim matrix(1 To 9, 1 To 9) As Integer
For i = 1 To 9
For j = 1 To 9
If i = j Or i = 9 + 1 - j Then
matrix(i, j) = 1
Else
matrix(i, j) = 0
End If
Next j
Next i
prompt = ""
For i = 1 To 9
For j = 1 To 9
prompt = prompt & " " & matrix(i, j)
Next j
prompt = prompt & Chr(13)
Next i
MsgBox prompt
End Sub