Program enot;
const m=15;
var a: array[1..m] of integer;
i, j, k: integer;
begin
for i := 1 to m do
a[i] := random(21)+10;
for i := 1 to m-1 do
for j := 1 to m-i do
if a[j] < a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (a[i]:4);
<span>end.</span>
1) Переводим в двоичную систему счисления, деля число целочисленно на 2 до тех пор, пока не получится 0.
Записываем остатки от деления в обратном порядке.
1100000110011 - ответ
2)Разбиваем двоичное число на тройки, начиная с младшего разряда: [001][100][000][110][011]
Каждую тройку переводим в восьмиричную систему счисления и записываем "как есть": [1][4][0][6][3].
14063 - ответ
3)Разбиваем двоичное число на четверки, начиная с младшего разряда: [0001][1000][0011][0011]
Переводим каждую четверку в шестнадцатиричную сисиему счисления и записываем "как есть": [1][8][3][3].
1833 - ответ.
Человек вроде.
Потому что подсистемой является то, что относится к школе. Т.е. человек.
Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>