А переведём в двоичную АВС,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
переведём в двоичную
АВС,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
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
пятница
Информатика
Обществознание
Физика
Астрономия
Русский
Литература
Биология