1. Сколько единиц в двоичной записи числа 3458? 2. Для передачи помехоустойчивых сообщений в алфавите, который содержит 16 различных символов, используется равномерный двоичный код. Этот код удовлетворяет следующему свойству: в любом кодовом слове содержится четное количество единиц (возможно, ни одной). Какую наименьшую длину может иметь кодовое слово?. 3. Ниже записаны рекурсивные функции (процедуры) A и В: Паскаль procedure А(n: integer); begin if n > 0 then B(n-1); end; procedure B(n: integer); begin writeln(‘@’) if n > 1 then A(n-3); end; Сколько символов будет напечатано на экране при выполнении вызова A(15)? 4В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса узла сети относится к адресу сети, а какая — к адресу самого узла в этой сети. Обычно маска записывается по тем же правилам, что и IP-адрес. Адрес сети получается в результате применения поразрядной конъюнкции к заданному IP-адресу узла и маске. Например, если IP-адрес узла равен 178.65.255.19, а маска равна 255.255.240.0, то адрес сети равен 178.65.240.0. По заданным IP-адресу узла и адресу сети определите наибольшее возможное значение второго слева байта маски. ответ запишите в виде десятичного числа. IP-адрес узла: 217.119.130.15 Адрес сети: 192.103.0.13 5. В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» — символ «&». В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет. Запрос Найдено страниц (в тысячах) Амур & Волга 200 Волга & (Амур | Днепр) 350 Амур & Волга & Днепр 80 Какое количество страниц (в тыс.) будет найдено по запросу Волга & Днепр ? Считается, что все запросы выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.
var
i, p, n, q, sum: integer;
a : array[1..1000000] of byte;
begin
Write('Введите число N: ');
ReadLn(n);
Write('Введите основание системы счисления q: ');
ReadLn(q);
p := n;
while p > 0 do
begin
i := i + 1;
a[i] := p mod q;
sum := sum + a[i];
p := p div q;
end;
Write(n,'(10) = ');
for p := i downto 1 do
Write(a[p]);
WriteLn('(', q, ')');
WriteLn('Сумма цифр полученного числа равна ', sum);
WriteLn('Количество цифр полученного числа равна ', i);
end.
Объяснение: