М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
hyekyo311017
hyekyo311017
03.11.2022 00:51 •  Информатика

С64 буквенного алфавита составлен текст из 150 символов. найдите объём текста. объём текста 400 бит, содержит 100 символов. сколько символов в алфавите?

👇
Ответ:
oliver6no
oliver6no
03.11.2022
1. символ алфавита занимает \log_264=\log_22^6=6 бит, значит объем (информационный) текста равен 150*6=900 бит

2. 400/100 бит на символ = 4 бита на символ. Всего различных символов 2^4 = 16. ответ 16
4,5(4 оценок)
Открыть все ответы
Ответ:
Amir011kz
Amir011kz
03.11.2022
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

function MyNum(a:array of integer;lim:integer):=a.Where(x->x<lim).Count;

begin
  var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println;
  var k:=ReadInteger('Введите границу отсечения элементов:');
  Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k))
end.

Пример
n= 17
-50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52
Введите границу отсечения элементов: 23
Количество элементов, меньших 23, равно 11
4,5(8 оценок)
Ответ:
Савелий187
Савелий187
03.11.2022
1)

program t1;
var
a: array[1..6] of integer;
i, m, mi: integer;
begin
writeln('ввод массива');
for i := 1 to 6 do
readln(a[i]);
mi := 1;
m := a[mi];
for i := 2 to 6 do
if a[i] < m then
begin
mi := i;
m := a[mi];
end;
writeln('минимум: ', m, ' (a[', mi, '])');
end.

2) предполагая, что 'коробочка' - это корень

program t2;
const
F = -8;
T = 6;
S = 2;
var
i: real;
function GetY(x: real): real;
begin
if (x > -3) and (x <= 3) then
GetY := sqrt(x)
else
GetY := 1 / (x * x);
end;
begin
writeln('промежуток [', F, '; ', T, '], шаг ', S, ':');
i := F;
while i <= T do
begin
writeln('y(', i, ') = ', GetY(i));
i := i + S;
end;
end.
4,7(8 оценок)
Новые ответы от MOGZ: Информатика

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ