Дешифруйте следующие двоичные числа, преобразовав их в десятичные: 0010, 1011, 11101, 0111, 0101.Дешифруйте следующие восьмеричн
ые числа, преобразовав их в десятичные: 777, 375, 111, 1015.<span>Дешифруйте следующие шестнадцатеричные числа, преобразовав их в десятичные: 15, A6, 1F5, 63.</span>
<span>Для перевода числа из любой системы счисления в
десятичную систему надо содержимое каждого
разряда умножить на его "вес" (то есть на основание системы в степени
n-1, где n-номер разряда), а затем суммировать полученные результаты. В
разрядах, где шестнадцатеричная цифра записана буквой, нужно записать
вместо неё соответствующее десятичное число (вместо A пишем 10, далее: B=11,
C=12, D=13, E=14, F=15).
Var a:array[1..12]of integer; m, n:integer; Begin a[1]:=31;a[7]:=31; a[2]:=28;a[8]:=31; a[3]:=31;a[9]:=30; a[4]:=30;a[10]:=31; a[5]:=31;a[11]:=30; a[6]:=30;a[12]:=31; Write('Введите номер месяца -> '); Readln(m); Write('Год високосный(1 - да || 0 - нет)?'); Readln(n); if (m = 2) then Writeln(a[m] + n) else Writeln(a[m]); end.