По информатике, надо : с 1. текст записан с алфавита мощностью 128 символов. определите информационный объем текста, если он записан на 350 страницах, по 60 символов в строке, 18 строк на странице. 2. 2 текста записаны с алфавитов мощностью 512 и 64 символа. информационный объем 1 текста 640 килобайт. найти инф.объем 2 текста. кол-во символов одинаково. 3. текст содержащий 1024 знака, занимает инф.объем 1 килобайт. найти мощность используемого алфавита.

1) Для начала подсчитаем общее кол-во символов.
    350 * 60 * 18 = 378000 символов
   Теперь подсчитаем информационный вес одного символа по формуле  N = 2^i.
    128 = 2^i
    i = 7 бит
  Теперь найдем информационный вес всех символов.
   378000 * 7 = 2646000 бит = 323 Кбайт (приблизительно) 

2) Найдем информационный вес 1 символа первого алфавита.
   N = 2^i
   512 = 2^i
   i = 9 бит
  Найдем информационный вес 1 символа второго алфавита.
  N = 2^i
  64 = 2^i
  i = 6 бит 
  Найдем количество символов первого ( и 2 ) алфавита.
  640Кбайт = 5242880 бит 
  5242880 / 9 = 58320 символов 
  Теперь найдем информационный объем второго алфавита.
  58320 * 6 = 349920 бит = 43 Килобайт ( приблизительно)

3) 1Кбайт = 8192 бит 
    8192 / 1024 = 2^13 / 2^10 = 2^3 = 8 бит 

   

// PascalABC.Net 3.0, сборка 1052
const
  nn=100;
var
  a:array[1..nn] of integer;
  p,s:longint;
  i,n:byte;
begin
  Write('Введите количество элементов в массиве: '); Read(n);
  Writeln('Вводите целочисленные элементы массива через пробел');
  s:=0; p:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if i mod 2 = 0 then p:=p*a[i];
    s:=s+a[i]
  end;
  Writeln('Произведение элементов с четными номерами: ',p);
  Writeln('Среднее арифметическое элементов: ',s/n)
end.

Тестовое решение:
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8

// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

type
  R=sequence of integer;

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q);
  if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd))
  then Writeln('Номер максимального элемента: ',a.IndexMax+1)
  else Writeln('Номер минимального элемента: ',a.IndexMin+1)
end.

Примеры
n= 17
31 98 7 42 -70 -98 -34 43 -48 -40 -28 -35 15 26 25 1 -66
Номер минимального элемента: 6

n= 15
95 88 -82 96 87 -68 17 40 -66 1 60 -25 -78 -55 -55
Номер максимального элемента: 4