1ая программа считает количество голосов для этого заведен счетчик m и в конце m=7
Локальная сеть используется, например, дома, в школе. Локальная сеть состоит из роутера и устройств (смартфоны, планшеты, ноутбуки, РС), которые подключаются к роутеру (через патч-корд, по Wi-Fi). В школе так же используется ЛВС. Все сетевые устройства, ПК, сервер (если имеется) подключены, обычно, к коммутаторам. Доступ в интернет (интернет - это глобальная сеть), осуществляется через маршрутизатор (роутер), к которому подключаются коммутаторы.
Примечание: в ЛВС используются серые IP-адреса. Они начинаются на 10, 169, 172, 192. (примеры: 10.90.90.90, 169.180.12.11, 172.168.42.15, 192.168.100.254).
2. Искать информацию рекомендуется по ключевым словам. Запрос должен быть составлен грамотно, тогда больше вероятности, что в ответах будет именно нужная информация.
Смотря по задаче ты всё правильно решил.
N у тебя это мощность алфавита
отсюда узнаём вес символа 64=2^6 -> 6
количество символов будет 256 на 128 = 32 768
информационный объём равен количество символов на вес одного символа
32 768 * 6 = 196 608
Тут у тебя всё полностью правильно. только вместо большой i (ай английской) около =6 поменяй на маленькую как в 2^i
Ответ:
program setof;
var
n16: set of Char;
s, w: string;
i, n: Integer;
c: Char;
Is16: Boolean;
begin
n16 := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F'];
Write ('Введите строку: ');
ReadLn (s);
w := '';
Is16 := True;
n := 0;
for i := 1 to Length (s) do begin
c := s [i];
if (c = ' ') or (i = Length (s)) then begin
if Is16 then begin
Inc (n);
WriteLn (w);
end;
w := '';
Is16 := True;
Continue;
end;
if Is16 and (c in n16) then
w := w + c
else begin
Is16 := False;
w := '';
end;
end;
WriteLn ('Количество 16-ричных чисел = ', n);
ReadLn;
end.
Объяснение:
В вводимой строке символ разделитель - пробел