Program zadacha;
Const n = 10;
Type mas=array[1..n] of integer;
Var s,i,k,d:integer;
m:mas;
Begin
s:=0;
k:=0;
readln(d);
For i:=1 to n do
read(m[i]);
For i:=1 to n do
if m[i]<d then begin
s:=s+m[i];
k:=k+1;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (Это решение для случая если вы вводите сразу весь массив чисел)
Program zadacha;
Const n = 10;
Var s,i,k,d,m:integer;
Begin
s:=0;
k:=0;
readln(d);
for i:=1 to n do begin
readln(m);
if (m < d) then begin
s:=s+m14;
k:=k+1;
end;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (А это решение для того случая когда вы вводите элементы по одному )
1) ответ:
2^i=n
2^i=32
i=5
один символ=5 бит
2) 64=2⁶
следовательно ,требуется 6-разрядный двоичный код
3) 2^i=n, n = 16
2^i=16
i=4 бит
50 * 4 = 200 бит
200: 8 = 25 байт
4) используем формулу 2^i=n. так как в алфавите 16 символов (n=16), то 2^i=16, следовательно i=4. 4 бита весит один символ. 384*4=1536. 1536 бит весит сообщение из 384 символов по 4 бита каждый. переводим биты в байты. 1 байт=8 бит, 1536/8=192 байта. переводим байты в килобайты. 1 килобайт=1024 байт. 192/1024=0,1875 килобайт весит все сообщение. так что лучше ответ оставить в байтах (192 байта).
3-2=1;
1-1=0.
Двоичное число – 10000011