Материальной моделью автомобиля для обучения вождению является … а) макет
б) тренажер
в) чертеж
г) правила дорожного движения
д) инструкция по эксплуатации автомобиля
Материальной моделью цветка для изучения его строения является
а) фотография
б) рисунок
в) муляж
г) гербарий
Информационной моделью строящегося здания является …
а) список строителей
б) макет здания
в) перечень строительного оборудования
г) проектно-сметная документация
Информационной моделью организации учебного процесса в школе является …
а) правила поведения учащихся
б) перечень учебников
в) список класса
г) расписание уроков

будем считать, что каждое четное однозначное число это определенный алфавит, мощность которого обозначается буквой N

N=2^i, подставим вместо N 2, получаем 2=2^i запишем левую часть как степень числа 2: 2^1=2^i, отсюда i=1 бит

подставим теперь вместо N 4, получаем 4=2^i запишем левую часть как степень числа 2: 2^2=2^i, отсюда i=2 бит

подставим теперь вместо N 6, получаем 6=2^i число 6 не является точной степенью числа 2, поэтому ответ найдем по таблице неточных степеней числа 2-  i=2,58 бит

подставим теперь вместо N 8, получаем 8=2^i запишем левую часть как степень числа 2: 2^3=2^i, отсюда i=3 бит

задача2

запишем условие: мощность компьютерного алфавита равна N=256

I=120 бит, К-?

решение: найдем вес одного символа 256=2^i, i=8 бит

разделим I на i и получим кол-во символов в тексте 120/8=15

Const
  k = 50;

var
  s, si, sf: string;
  powm, n10i: longint;
  i, j, m, ls, err, ni, nf: integer;
  a: double;

begin
  Write('Введите основание системы счисления (2..9): ');
  Readln(m);
  if not (m in [2..9]) then Writeln('Ну-ну...')
  else begin
    Write('Введите положительное число в этой системе счисления: ');
    Readln(s);
    ls := Length(Trim(s));
    i := pos('.', s);
    if i > 0 then begin
      ni := i - 1; si := Copy(s, 1, ni);
      nf := ls - i; sf := Copy(s, i + 1, nf)
    end
    else begin si := s; ni := ls; sf := ''; nf := 0 end;
    powm := 1; n10i := 0;
    for i := ni downto 1 do
    begin
      Val(si[i], j, err);
      n10i := n10i + j * powm;
      powm := powm * m
    end;
    powm := m; a := 0;
    for i := 1 to nf do
    begin
      Val(sf[i], j, err);
      a := a + j / powm;
      powm := powm * m
    end;
    a := a + n10i;
    Writeln(s, '(', m, ')=', a, '(10)')
  end;
end.

Тестовое решение:

Введите основание системы счисления (2..9): 8
Введите положительное число в этой системе счисления: 23532.5034
23532.5034(8)=10074.6318359375(10)