1)-1
2)-2
3)-3
4)-4
5)-5
6)-10
7)-11
8)-12
9)-13
10)-14
11)-15
12)-20
13)-21
14)-22
15)-23
16)-24
17)-25
18)-30
19)-31
20)-32
Дан алфавит с N символоми.
Для начала, нужно определить мощность алфавита (I). Это количество бит информации на 1 символ этого алфавита. Суть в том, чтобы каждой букве алфавита (включая плобельные символы и знаки препинания) поставить в соответствие уникальное двоичное число, которое будет кодом этой буквы. Это можно сделать по формуле (скобки в формуле - округление к большему)
Если затем перемножить количество символов в сообщении (М) на вес одного символа (I), получим вес сообщения.
Не ясно на каком именно бейсике это написано, но у меня есть только VBS
Так что форматирование может не совпасть
Код
Sub Zadanie
s = ""
n = 4
l = 2
for i = 1 to n
for j = 1 to n
if j=1 or i=1 or i=n or j=n then
s = s & "0"
else
l = l + 1
s = s & l mod 10
end if
next
s = s & vbNewLine
next
MsgBox (s)
End Sub
Вывод
0000
0340
0560
0000
Под управлением процессора информация о цвете каждого пикселя экрана компьютера заносится для хранения в видеопамять. Видеопамять— это электронное энергозависимое запоминающее устройство. Глубина цвета, а значит, количество цветов в палитре компьютера, зависит от размера видеопамяти. Видеопамять современных компьютеров составляет 256, 512 и более мегабайтов.
X+5=13
x=13-5
x=8
8+5=13
13=13