В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
sashasa02
sashasa02
23.01.2022 04:14 •  Информатика

76. Укажите мощность множеств, каждое из которых задано его характеристическим свойством.
Множество
Мощность
множества
1
Множество двузначных чисел
2
Множество чётных двузначных чисел
3
Множество трёхзначных чисел
4
Множество простых однозначных чисел
Множество двузначных чисел, кратных 9
5​

Показать ответ
Ответ:
Saaabiii
Saaabiii
15.05.2020 13:44
Если речь о "минимально возможном", знаачит используется какое-то кодирование данных. Простейший вариант кодирования - это присвоить числу 50 (меньше ведь не может быть) код 0. Тогда 500 также сдвинется на 50 и получит код 450. Чтобы определить, сколько бит потребуется для записи кода 450, нужно или перевести 450 в двоичную систему счисления, или вычислить
log_2450 и округлить результат до ближайшего большего целого. В последнем случае получим приблизительно 8.81 и округлим до 9.
На запись информации по одному донору потребуется от 1 до 9 бит. Если считать, что информация по каждому донору записывается одинаковым количеством бит, то потребуется 56х9=504 бита.
Если кодировку производить переменным числом бит, понадобится код - разделитель данных, который также занимает место. В подобных случаях решение о формате записи принимается исходя из конкретных условий.
0,0(0 оценок)
Ответ:
erop4ik1
erop4ik1
16.02.2023 06:53
Function f(x: real): real;
begin
  f := (x - 3) / (sqr(x) + 2)
end;

var
  a, b, x, fa, fb, fx, eps: real;

begin
  Write('Введите через пробел границы интервала [a;b] и точность:');
  Readln(a, b, eps);
  fa := f(a);
  if abs(fa) <= eps then Writeln('x=', a, ', y=', fa)
  else begin
    fb := f(b);
    if abs(fb) <= eps then Writeln('x=', b, ', y=', fb)
    else
    if fa * fb > 0 then Writeln('На указанном интервале корней нет')
    else
      repeat
        x := (a + b) / 2;
        fx := f(x);
        if abs(fx) <= eps then Writeln('x=', x, ', y=', fx)
          else
        if fa * fx > 0 then a := x else b := x;
      until abs(fx) <= eps
  end
end.

Результат выполнения программы:

Введите через пробел границы интервала [a;b] и точность:-1 4 1e-4
x=2.9990234375, y=-8.88257162245635E-05
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота