Чтобы из десятичной системы число перевести в двоичную систему, то нам нужно будет делить число на 2,и так каждый раз, до тех пор, пока в ответе не будет 1
Далее собираем вот этот вот последний ответ 1,и все остатки(кстати, собираем мы это все снизу вверх), и получаем наше двоичное число
Const nn=100; var n,i,k,s:integer; a:array[1..nn] of integer; begin Write('Количество элементов в массиве: '); Read(n); Randomize; Writeln('Сформированный массив'); k:=0; s:=0; for i:=1 to n do begin a[i]:=Random(100); Write(a[i],' '); if (a[i] in [51..59]) then begin s:=s+a[i]; Inc(k) end end; Writeln; Writeln('На интервале [51..59] найдено элементов - ',k); Writeln('Их сумма равна ',s) end.
Пример выполнения программы Количество элементов в массиве: 20 Сформированный массив 26 65 64 80 46 0 54 38 63 14 63 81 40 42 17 16 23 88 61 54 На интервале [51..59] найдено элементов - 2 Их сумма равна 108
Замечание Если конструкция a[i] in [51..59] кажется незнакомой, её можно заменить на более длинную и менее эффективную (a[i]>50) and (a[i]<60)
1110001100(в двоичной системе)
Объяснение:
256+652=908
908:2=454(ост.0)
454:2=227(ост.0)
227:2=113(ост.1)
113:2=56(ост.1)
56:2=28(ост.0)
28:2=14(ост.0)
14:2=7(ост.0)
7:2=3(ост.1)
3:2=1(ост.1)
1110001100(в двоичной системе) =908(в десятичной)
Чтобы из десятичной системы число перевести в двоичную систему, то нам нужно будет делить число на 2,и так каждый раз, до тех пор, пока в ответе не будет 1
Далее собираем вот этот вот последний ответ 1,и все остатки(кстати, собираем мы это все снизу вверх), и получаем наше двоичное число
Удачи!