Ребят, тут немного, много времени не займёт, мне очень нудно Отметьте, какие сравнение верны и неверны. А) 3 байта > 24 бита Б) 1536 бит < 1, 5 Кбайта В) 100 т < 1 Кбайт Г) 8192 Бит = 1 Кбайт Д) 200 байт < 0, 25 Кбайт 2)установите верное соотношение: ( выбирать из: 0, 00004 Мб; 85, 5 Кб; 91226112 байт; 0, 0005 мб; 4000 бит; 58720256 бит.) А) 7 МБ = Б) 87 Гб = В) 46 байт = Г) 500 байт = Д) 7000000 бит = Е) 0, 5 Кб = 3) Считая, что каждый символ кодируется одним байтом, оцените информационный объём следующего предложения: "Мой дядя самых честных правил". Выберите один ответ: А) 32 байта Б) 31 бит В) 31 байт Г) 27 бит 4) Мощность алфавита равна 64. Сколько Кбайт памяти потребуется, чтобы сохранить 128 страниц текста, содержащего в среднем 256 символов на каждой странице? Выберите один ответ: А) 26 кбайт Б) 32768 кбайт В) 196608 кбайт Г) 24 кбайт 5) В коробке лежат 64 шара. Сколько бит информации несёт сообщение о том, что достали жёлтый шар. ответ запишите в виде числа бит: ...
Ответы
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Слабораторной работе по программированию c++
Автор: festjob
Контрольная работа. можете до следующей пятницы решить
Автор: karpov68
Алфавит содержит 512 букв. какое количество информации несет одна буква?
Автор: gorovoy-dv4088
Написать программу. тема: множества. язык пронраммирования: pascalabc.net
Автор: chizhenkovd9
begin
writeln("введите количество метров пробегания жирафа");
read(y1);
writeln("введите, за сколько секунд он должен пробежать");
read(x1);
writeln("введите количество метров пробегания зайца");
read(y2);
writeln("введите, за сколько секунд он должен пробежать");
read(x2);
v1:=y1/x1;
v2:=y2/x2;
if v1>v2 then
begin
writeln("жираф чемпион");
end
else if v1<v2 then
begin
writeln("заяц чемпион");
end
else
begin
writeln("победила дружба);
end;
end;