1) - 1 (=12)
2) - 3 (=11)
3) - 5 (=7)
4) - 2 (=6 )
5) - 4 (=5 в дес)
В системе счисления с основанием 2(двоичная система счисления) число может содержать только цифры 0 или 1.
Максимальное трехразрядное число в данной системе будет: 111
Переведем его в десятичную систему счисления:
![111_2=1*2^2+1*2^1+1*2^0=4+2+1=7_{10}](https://tex.z-dn.net/?f=111_2%3D1%2A2%5E2%2B1%2A2%5E1%2B1%2A2%5E0%3D4%2B2%2B1%3D7_%7B10%7D)
В одном байте 8 бит => в двух байтах - 8*2=16 бит
Умножаем: 7*16=112
Переводим в двоичную систему счисления:
112/2=56(0) - 56 - целая часть, 0 - остаток
56/2=28(0)
28/2=14(0)
14/2=7(0)
7/2=3(1)
3/2=1(1)
1110000 - число 112 в двоичной системе
Ответ: 1110000
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
Чадо - чаёк - чайка - чайник - чаровница - чародей - чародейка - час - часик - часок - часок-другой.
В цикле от 1 до 10 вводим i-тый элемент массива. Сразу в этом же цикле проверяем два условия:
1) если i < 6 то прибавляем этот элемент к сумме1
2) если i чётное и элемент чётный прибавляем его к сумме2.
С телефона не выделяются абзацы, поэтому сори за вид.
Program zzz; Var s1, s2: integer; x: boolean;Var i: byte; Var M: array[1..10] of integer; Begin s1:=0; s2:=0; For i:=1 to 10 do begin Writeln ('введите ',i,'-е число массива'); Readln (M[i]); If i<=5 then s1:=s1+M[i]; if ((i mod 2)=0) and ((M[i] mod 2)=0)Then s2:=s2+M[i]; End; Writeln ('Сумма первых 5 элементов = ',s1);Writeln ('Сумма чётных элементов стоящих на чётных позициях = ',s2);End.