Мощность алфавита равна 19 и содержит 60 символов, необходимо найти информационный объем

Мощность алфавита это сколько символов в алфавите
для объёма надо знать вес одного символа и количество. но мы уже знаем количество так что нам надо только вес но мы можем узнать за счёт алфавита
19 не может быть возведён в двоичную степень так что делаем так
19=2^(4+1)
1 добавляем чтобы округлить
вес равен 5
теперь объем
5*60=300 бит
нам не говорили переводить в байт так что вот ответ

1.

program z1;

var S,t:integer;

V:real;

begin

write ('S = ');

readln (S);

write ('t = ');

readln (t);

V:=S/t;

writeln ('V = ',V)

end.

2.

program z2;

var a,b,c,P:integer;

begin

write ('a = ');

readln (a);

write ('b = ');

readln (b);

write ('c = ');

readln (c);

P:=a + b + c;

writeln ('P = ',P)

end.

3. 42

Объяснение:

1. Смотри картинки 1,2

2. Смотри картинки 3,4

3.

A = 10

А = 50     В = ?     S = ?

B = A * 4 = 10 * 4 = 40

А = 10     В = 40     S = ?

A = A + B = 10 + 40 = 50

А = 50     В = 40     S = ?

B = B / 5 = 40 / 5 = 8

А = 50     В = 8     S = ?

S = A - B = 50 - 8 = 42

А = 50     В = 8     S = 42

pascalABC

Объяснение:

Задание 1

   var

       

       arr: array of integer;

       n, i, max1, max2: integer;

   begin

       Write('Введите размер массива: ');

       ReadLn(n);

       SetLength(arr, n);

       for i := 0 to n-1 do begin

           arr[i] := random(100);

           Write(' ', arr[i]);

       end;

       WriteLn;

       

       max1 := arr[0];

       max2 := arr[1];

       if max1 < max2 then Swap(max1, max2);

       

       for i := 2 to n-1 do begin

           if arr[i] > max2 then max2 := arr[i];

           if max1 < max2 then Swap(max1, max2);

       end;

       

       WriteLn(max1+max2,', ',max1,', ', max2);

   end.

Задание 2

var

 n, m, p, k, s: integer;

 i, j: integer;

 a: array[,] of integer;

begin

 Write('Введите размер массива n и m: ');

 ReadLn(n, m);

 SetLength(a, n, m);

 for i := 0 to n-1 do begin

   for j := 0 to m-1 do begin

     Write('a[',i,',',j,']=');

     ReadLn(a[i,j]);

   end;

 end;

 Write('Введите искомое число p= ');

 ReadLn(p);

 s:= -1;

 for i := 0 to n-1 do begin

   for j := 0 to m-1 do begin

     if a[i,j] = p then

       begin

          k:=k+1;

          if s=-1 then s:=i;

       end;

   end;

 end;

 

 if s>-1 then

   begin

     Write(k,', ');

     for j:=0 to m-1 do Write(a[s,j],', ')

   end

   else

     Write('0');

end.