Практические : вариант 1 1. сообщение о том, что из коробки достали один карандаш несет 6 бит информации. сколько карандашей в коробке? 2. при угадывании целого числа в некотором диапазоне получено 9 бит информации. сколько чисел содержит диапазон? 3. подсчитать в килобайтах количество информации в тексте, если текст состоит из 800 символов, а мощность используемого алфавита – 128 символов. 4. сколько символов в тексте, если мощность алфавита – 64 символа, а объем информации, содержащейся в нем – 1,5 кбайта? 5. объем оперативной памяти компьютера содержит 163 840 машинных слов, что составляет 0,625 мбайт. сколько бит содержит каждое машинное слово? 6. определите объем памяти необходимый для размещения следующей информации (в кодах ascii).«каталоги низких уровней вкладываются в каталоги более высоких уровней и являются для них вложенными. верхним уровнем вложенности иерархической структуры является корневой каталог.» 7. используя правило двоичного кодирования, определите минимальную длину данной последовательности символов в битах 123$$333122321$$1 8. 13мб в байты 128мб в гигабайты 0,12мб в биты 0,01гб в килобайты 40960 бит в килобайты

👇

Увидеть ответ

Ответ:

ALSY0504

19.05.2023

13 мб = 13631488 байт
128 мб = 0,13 гб
0,12 мб = 1006632,96 бит
0,01 гб = 10485,76 кб
40960 бит = 5 кб

4,6(70 оценок)

Открыть все ответы

Ответ:

супербятя

19.05.2023

Задание №1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
b: array of real;
i, n,pn: integer;
ps,op,min:real;
begin
write('Количество элементов массива :');readln(n);
SetLength(b, n); // задаем длину массива
min:=MaxReal; op:=1;
writeln('Исходный массив:');
for i:=0 to n-1 do begin
    repeat
      write('Введите ',i+1,' число из ',n,' : ');readln(b[i]);
    until (b[i]<=5) and (b[i]>=-20);
    if (b[i]>0) and (round(b[i]/2)*2=b[i]) then begin
      ps +=b[i];pn+=1;
      end
    else if b[i]<0 then op *=b[i];
    if b[i]<min then min:=b[i];
end;
writeln;
writeln('сумма положительных и четных элементов массива :',ps:0:3);
writeln('Среднее положительных и четных элементов массива :',ps/pn:0:3);
writeln('Произведение отрицательных элементов массива :',op:0:3);
writeln('Минимальный элемент массива :',min);
writeln('Отсортированный массив по убыванию :');
b.sorteddescending.println;
end.

Тестовое решение:
Количество элементов массива :8
Исходный массив:
Введите 1 число из 8 : -18.5
Введите 2 число из 8 : 3.4
Введите 3 число из 8 : 4
Введите 4 число из 8 : -12
Введите 5 число из 8 : 2.2
Введите 6 число из 8 : -6.3
Введите 7 число из 8 : 2
Введите 8 число из 8 : 5

сумма положительных и четных элементов массива :6.000
Среднее положительных и четных элементов массива :3.000
Произведение отрицательных элементов массива :-1398.600
Минимальный элемент массива :-18.5
Отсортированный массив по убыванию :
5 4 3.4 2.2 2 -6.3 -12 -18.5

Задание №2
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a: array of integer;
i,n ,max,h,k: integer;
begin
write('Количество элементов массива :');readln(n);
write('Число H :');readln(h);
write('Число K :');readln(k);
SetLength(a, n); // задаем длину массива
max:=-MaxInt;
writeln('Исходный массив:');
for i:=0 to n-1 do
    repeat
      write('Введите ',i+1,' число из ',n,' : ');readln(a[i]);
      if a[i]>max then max:=a[i];
    until (a[i]<=7) and (a[i]>=-12);
for i:=0 to n-1 do begin
    if (a[i]>h) and (a[i]mod k=0) then
      writeln('Число ', a[i],' больше ',h,' и кратно ',k);
end;
writeln('Максимальный элемент массива :',max);
writeln('Отсортированный массив по возрастанию :');
a.sorted.println;
end.

Тестовое решение:
Количество элементов массива :8
Число H :-8
Число K :2
Исходный массив:
Введите 1 число из 8 : -10
Введите 2 число из 8 : 6
Введите 3 число из 8 : -4
Введите 4 число из 8 : 3
Введите 5 число из 8 : 1
Введите 6 число из 8 : -1
Введите 7 число из 8 : -12
Введите 8 число из 8 : 4
Число 6 больше -8 и кратно 2
Число -4 больше -8 и кратно 2
Число 4 больше -8 и кратно 2
Максимальный элемент массива :6
Отсортированный массив по возрастанию :
-12 -10 -4 -1 1 3 4 6

4,8(4 оценок)

Ответ:

sidyakinanasty

19.05.2023

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел
2+4+6+...+198+200.

1. Самый короткий вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
Writeln(Range(2,200,2).Sum)
end.

Результат:
10100

2. Более длинный и более "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=0;
var i:=2;
while i<=200 do begin
    s:=s+i;
    i:=i+2
    end;
Writeln(s)
end.

3. Совсем "тупой школьный" вариант (решение "в лоб")

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
i,s:integer;
begin
s:=0;
for i:=1 to 200 do
    if i mod 2 =0 then s:=s+i;
Writeln(s)
end.

4. Улучшенный "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
i,s:integer;
begin
s:=0;
for i:=1 to 100 do s:=s+2*i;
Writeln(s)
end.

4,6(90 оценок)

Это интересно:

Здоровье

08.08.2020

8 советов по подготовке к приему к стоматологу: как не бояться и что вам нужно знать...

Компьютеры-и-электроника

05.09.2020

Как использовать контроллер Xbox 360 вместе с Windows...

Компьютеры-и-электроника

15.02.2021

Как избавиться от Mystart.Incredibar.Com: советы от экспертов...

Кулинария-и-гостеприимство