Перевести в двоичную систему счисления: 1. Год своего рождения.(2004) 2. Текущий календарный год.(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)
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