Dim A(100) As Integer, Odin As Boolean Dim k As Integer , i As Integer Randomize For i = 1 To 100 A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100 Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию Next i Print "Повторяющиеся элементы" For i = 1 To 100 For k = i+1 To 100 If A(i) = A(k) Then Print A(i) & CHR(9); Next k Next i Print "Не повторяющиеся элементы" For i = 1 To 100 Odin = True For k = i+1 To 100 If A(i) = A(k) Then Odin = False Next k If Odin = True Then Print A(i) & CHR(9); Next i End
1. 119
297
242
2. 1122
1244
1605
Объяснение:
167(8) = 82*1 + 81*6 + 80*7 = 64 + 48 + 7 = 119
ответ: 167(8)=119
451(8) = 82*4 + 81*5 + 80*1 = 256 + 40 + 1 = 297
ответ: 451(8) =297
362(8) = 82*3 + 81*6 + 80*2 = 192 + 48 + 2 = 242
ответ: 362(8) =242
Остаток от деления записываем в обратном порядке. Получаем число в 8-ой системе счисления: 1122
594 = 1122(8)
Остаток от деления записываем в обратном порядке. Получаем число в 8-ой системе счисления: 1244
676 = 1244(8)
Остаток от деления записываем в обратном порядке. Получаем число в 8-ой системе счисления: 1605
901 = 1605(8)
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then Print A(i) & CHR(9);
Next i
End