Информатика Excel если можно то максимально подробно

Program  Kasyanova98_1;
uses crt;
var n,nt,p:integer;
  begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите натуральное число N = ');
  readln(n);
  nt:=n;
  while nt>=10 do
    begin
      p:=nt;
      nt:= nt div 10;
    end;
  writeln('Cумма первых двух цифр числа ',n,' равна ',(p div 10)+(p mod 10));
  writeln('Произведение первых двух цифр числа ',n,' равно ',(p div 10)*(p mod 10));
end.

Program  Kasyanova98_2;
uses crt;
var n,nt,sum,kw,temp:integer;
  begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите натуральное число N = ');
  readln(n);
  nt:=n;
  sum:=0;
  kw:=1;
  while nt>=1 do
    begin
    temp:=nt mod 10;
    sum := sum + temp;
    kw:=kw * temp;
    nt := nt div 10;
  end;
  if kw*kw=sum*sum*sum then
      writeln('Квадрат произведения цифр числа ',n,' равняется кубу суммы его цифр')
    else
writeln('Квадрат произведения цифр числа ',n,' НЕ равняется кубу суммы его цифр');
end.

Program Kasyanova98_3.1;
uses crt;
const n=10;
var
  x,y:integer;
begin
  writeln('');
  writeln('*                   ТАБЛИЦА УМНОЖЕНИЯ                  *');
  writeln('');
  write('*    * ');
  for y:=1 to n do
    begin
      write(y:2);
      if y<n then write(' | ')
      else      writeln(' * ');
    end;
  writeln('');
  for x:=1 to n do
    begin
      write('* ',x:2, ' * ');
      for y:=1 to n do
         begin
          write(x*y:2);
          if y<n then write(' | ')
        end;
        if x*y<100 then writeln(' * ')
                   else writeln('* ');
        if x<10 then writeln('++')
                else writeln('');
    end;
end.

Program Kasyanova98_3.2;
uses crt;
const n=10;
var
  x,y:integer;
begin
  writeln('');
  writeln('*                   ТАБЛИЦА СЛОЖЕНИЯ                   *');
  writeln('');
  write('*    * ');
  for y:=1 to n do
    begin
      write(y:2);
      if y<n then write(' | ')
      else      writeln(' * ');
    end;
  writeln('');
  for x:=1 to n do
    begin
      write('* ',x:2, ' * ');
      for y:=1 to n do
         begin
          write(x+y:2);
          if y<n then write(' | ')
        end;
        if x+y<100 then writeln(' * ')
                   else writeln('* ');
        if x<10 then writeln('++')
                else writeln('');
    end;
end.

1) Работает 6 часов по полчаса - 12 пациентов. Кодируется int(log2 12) = 4 битами. 2) 32 буквы кодируются 5 битами (log2 32). В слове «муравей» 6 букв. 6 * 5 = 30.3) 8*8 = 64. log2 64 = 6. Именно столько бит необходимо для кодирования каждой клетки.4) Что подразумевается под «оптимальным» не знаю, так что затрудняюсь ответить.5) log2 64 = 6 - количество бит для кодирования символа. 2000 * 6 = 12000 - количество бит для кодирования текста. 12000 / 8 = 1500 - количество байт для кодирования текста.6) 300 / 150 = 2 байта на символ. 2 * 8 = 16 бит. 2^16 = 65536. В алфавите не более 65536 символов7) Если кодировка ASCII или другая с кодированием в 1 байт на символ, то да, т.к. в килобайте 1024 байт. Если Unicode или подобные с 2-байтовой кодировкой, то нет/8) 5000 / 10 = 500 - байт  = 4000 бит в секунду. 800 - символов в секунду. 5 бит на символ. 2^5 = 32 символа9) 2,5 = log2 32 / log2 x. Получаем, что x = 410) один 8-ричный разряд содержит 3 бита (log2 8), 3 разряда числа - 3 * 3 = 9