Перевести в двоичную систему счисления: 1. Год своего рождения2004) 2. Текущий календарный год.(2020) Сделайте проверку полученным числам, переведите их в десятичную систему счисления

1)

2004   1002   501       250     125       62     31     15    7      3     1    

 0           0        1            0         1           0       1       1      1      1      1     <=

проверка

10.9.8.7.6.5.4.3.2.1.0              

1   1  1  1  1 0 1 0 1 0 0(2 сист.)=1*2^2+1*2^4+1*2^6+1*2^7+1*2^8+1*2^9+1*2^10=

4+16+64+128+256+512+1024=2004

2)

2020  1010   505     252     126     63   31     15   7  3  1

0           0       1             0       0         1      1      1     1    1  1      <=

проверка

10.9.8.7.6.5.4.3.2.1.0

1    1  1 1   1 1  0 0 1 0 0(2 сист.)=1*2^2+1*2^5+1*2^6+1*2^7+1*2^8+1*2^9+1*2^10=

4+32+64+128+256+512+1024=2020

Var     arr: array[1..100] of real;     n: integer;     sum, op: real;     i: integer;   begin     write('vvedite n ');     readln(n);           for i : = 1 to n do           begin                   write('vvtdite ',i,'-oe chislo ');                     readln(arr[i]);         end;         sum : = 0;         for i : = 1 to n do             sum : = sum + arr[i];     writeln('summa= ', sum); end.

1. 24 бита = 3 байтам . т.к если мы переведем 3 байта в биты, то получим 3*8 = 24 бита.                                                                                         250 байт больше чем 0,25 кбайт. т.к 250: 1000=0,4кбайт