Здравствуйте с информатикой Решение с дано, найти, решение, ответ.
1) Алфавит некоторого языка имеет мощность (количество букв) 64 символа. Какой длины кода будет достаточно чтобы закодировать все эти символы?
2) Для записи текста использовался алфавит, состоящий из 256 символов. Какой объём информации в БАЙТАХ содержат 15 страниц текста, если на каждой странице расположено 32 строки по 128 символов в каждой строке? Как можно быстрее За ранее

Type
  Route = record
    station: string[30];
    arrival: string[5];
    stop: string[5];
    cost: real
  end;

{ Программа для заполнения данными файла }
{
var
  F: file of Route;
  r: Route;

begin
  writeln('Вводите данные');
  writeln('');
  Assign(F, 'Route.dat');
  Rewrite(F);
  with r do
    repeat
      write('Населенный пункт (*-завершить): ');
      readln(station);
      if (station <> '*') then
      begin
        write('Время прибытия чч:мм ');
        readln(arrival);
        write('Стоянка чч:мм: ');
        readln(stop);
        write('Стоимость проезда, руб.коп: ');
        readln(cost);
        write(F, r);
      end
    until station = '*';
  Close(F)
end.
}

{ Программа для работы с заполненным файлом }

function hhmm2Int(s: string): integer;
{переводит время чч:мм в челое число минут}
var
  i, j, ierr: integer;

begin
  Val(Copy(s, 1, 2), j, ierr);
  if ierr = 0 then i := 60 * j else i := 0;
  Val(Copy(s, 4, 2), j, ierr);
  if ierr = 0 then i := i + j;
  Result := i
end;

var
  F: file of Route;
  F2:Text;
  r: Route;
  i, ierr, istop, n: integer;
  s: string;
  cstop: real;

begin
  Assign(F, 'Route.dat');
  Reset(F);
  n := 0;
  cstop:=0;
  while not Eof(F) do
  begin
    read(F, r);
    istop := hhmm2Int(r.stop);
    if istop > 0 then
      begin
      cstop:=cstop+istop;
      n := n + 1
      end
  end;
  cstop := cstop / n;
  Reset(F);
  Assign(F2,'screen.dat');
  Rewrite(F2);
  writeln('Населенные пункты, в которых стоянка дольше средней');
  writeln(F2,'Населенные пункты, в которых стоянка дольше средней');
  writeln('Населенный пункт  Прибытие  Стоянка,мин   Стоимость');
  writeln(F2,'Населенный пункт  Прибытие  Стоянка,мин   Стоимость');
  with r do
    while not Eof(F) do
    begin
      read(F, r);
      istop := hhmm2Int(stop);
      if istop > cstop then
      begin
        writeln(station:18, '  ', arrival, '      ', stop, '       ', cost:7:2);
        writeln(F2,station:18, '  ', arrival, '      ', stop, '       ', cost:7:2);
      end;
    end;
  Close(F);
  Close(F2)
end.

ВНИМАНИЕ: Прикрепленный файл на самом деле RAR-архив с двумя, используемыми в программе файлами. Нужно его скачать к себе и поменять расширение TXT на RAR, а затем распаковать.

Предложенные фрагменты программы должны выполнять нахождение и вывод абсолютной величины суммы первых 1, 2, ...8 элементов массива А - всего 8 сумм. В реальности будут восемь раз выведены нули, потому что отсутствует фрагмент, в котором элементам массива А присваиваются какие-либо значения.

Блок-схемы достаточно одной, потому что все три фрагмента определяют одни и те же шаги алгоритма.

1. Pascal

var
  A: array[1..100] of integer;
  N, I, J: integer;
  S: real;

begin
  N := 8;
  for I := 1 to N do
  begin
    S := 0;
    for J := 1 to I do S := S + A[J];
    S := abs(S);
    writeln('S=', S:9:2)
  end;
  readln;
end.

2. QBASIC

DEFINT I-J, N, S
DIM A(100) AS INTEGER
N = 8
FOR I = 1 TO N
    S = 0
    FOR J = 1 TO I
        S = S + A(J)
    NEXT J
    S = ABS(S)
    PRINT S
NEXT I
END

3. Школьный АЯ (КуМИР)

алг слово(рез вещ s)
нач цел таб A[1:100]
   цел n,I,j
   n:=8
   нц для I от 1 до n
      s:=0
      нц для j от 1 до I
         s:=s+A[j]
      кц
      s:=abs(s)
      вывод s
  кц
кон