Алфавит некоторого племени состоит из 32 символов. Сколько бит информации несет написанное с этого алфавита сообщение,
состоящее из 16 символов?
5. Получено сообщение: ВПАММАПААВВП В нем использованы все
символы используемого алфавита. Определите информационный
объем полученного сообщения.
6. Объем сообщения равен 8 Кбайт. Сообщение содержит 16384 символа.
Какова мощность алфавита, с которого записано
сообщение?
7. В одной из кодировок Unicode каждый символ кодируется 16 битами.
Определите размер в байтах следующего предложения в данной
кодировке: Мудрый не дерется нечаянно. (А.В. Суворов)
решить через дано

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

begin
  var n,p:integer;
  var s:string;
  for var a:=1 to 9 do
    for var b:=0 to 9 do
      for var c:=0 to 9 do begin
        n:=100*a+10*b+c;
        s:=(n*n).ToString.Right(3);
        p:=Pos(a.ToString,s);
        if p>0 then begin
          Delete(s,p,1);
          p:=Pos(b.ToString,s);
          if p>0 then begin
            Delete(s,p,1);
            if s=c.ToString then Write(n,'(',n*n,')',' ')
            end
          end
        end
end.

Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)

За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сик Python

DIM k, s AS INTEGER

s = 0

FOR k = 4 TO 8

s = s + 7

NEXT k

PRINT s

s = 0

for k in range(4,9):

s = s + 7

print (s)

Пас­каль Ал­го­рит­ми­че­ский язык

var s,k: integer;

begin

s := 0;

for k := 4 to 8 do

s := s + 7;

writeln(s);

end.

алг

нач

цел s, k

s := 0

нц для k от 4 до 8

s := s + 7

кц

вывод s

кон

С++

#include <iostream>

using namespace std;

int main() {

int s = 0;

for (int k = 4; k <= 8; k++)

s += 7;

cout << s;

return 0;

}