1 Адресация в сети Интернет ... 1)своя у каждой организации 2)одинаковая у всех 3)своя у каждой страны 4)своя у каждого континента 2 Числа IP-адреса лежат в диапазоне ... 1)от 0 до 256 2)от 1 до 255 3)от 0 до 255 4)от 1 до 256 3 Доставку каждого отдельного пакета до места назначения выполняет протокол: 1)FTP 2)HTTP 3)TCP 4)IP

1-3

2-2

3-4

:> :3

А
переведём в двоичную
АВС,1А_16=1010 1011 1100, 0001 1010_2
каждая цифра шестнадцати ручного представления становится четвёркой цифр в двоичном виде.
теперь для перевода в восьмисотых систему будем отсекать по три бита от запятой, влево, и это будет целая часть, и потом вправо, это станет дробной частью
=101 010 111 100, 000 110 100_2=
справа получились только два бита, и их надо дополнить нулём
=5274,064_8
б
из восьмеричной переведём в двоичную
123,56_8=001 010 011, 101 110_2
переформатирование двоичное число по 4 бита в группе, при необходимости дополняя слева и справа недостающими нулями
=0 0101 0011, 1011 1000_2=
и заменим каждую четвёрку соответствующей шестнадцати яичной цифрой
= 53,В8_16

Program task8;
var ch:integer;
begin 
writeln('Введите число: ');
readln (ch);
case ch of
1:begin writeln ('понедельник'); writeln ('Литература'); writeln ('История'); writeln ('Алгебра'); writeln ('Английский'); writeln ('ОБЖ'); writeln ('Геометрия'); end;
2:begin writeln ('вторник '); writeln ('Обществознание '); writeln ('Информатика'); writeln ('Физика'); writeln ('Химия '); writeln ('География'); writeln ('Английский'); writeln ('Физкультура');end;
3:begin writeln ('среда '); writeln ('Физика'); writeln ('Физкультура'); writeln ('Алгебра'); writeln ('Алгебра'); writeln ('Французский'); writeln ('Русский'); writeln ('История');end;
4:begin writeln ('четверг ');writeln ('Французский'); writeln ('Алгебра'); writeln ('Геометрия'); writeln ('Английский'); writeln ('Английский'); writeln ('География'); writeln ('Физкультура');end;
5:begin writeln ('пятница '); writeln ('Информатика'); writeln ('Обществознание'); writeln ('Физика'); writeln ('Астрономия'); writeln ('Русский'); writeln ('Литература'); writeln ('Биология');end;
6:begin writeln ('суббота '); writeln ('- в этот день занятий нет'); end;
7:begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end;
else writeln('Ошибка ввода');
end; 
end.

Пример:
Введите число 5
пятница
Информатика
Обществознание
Физика
Астрономия
Русский
Литература
Биология