2. какие двоичные числа соответствуют следующим десятичным числам: 128; 256; 512; 1024? 3. чему в десятичной системе равны следующие двоичные числа: 1000001; 10000001; 100000001; 1000000001? 4. переведите в десятичную систему следующие двоичные числа: 101; 11101; 101010; 100011; 10110111011. 5. переведите в двоичную систему счисления следующие десятичные числа: 2; 7; 17; 68; 315; 765; 2047. 6. выполните сложение в двоичной системе счисления: 11 + 1; 111 + 1; 1111 + 1; 11111 + 1. 7. выполните умножение в двоичной системе счисления: 111 · 10; 111 · 11; 1101 · 101; 1101 · 1000.

2.   128 = 10000000        256 = 100000000        512 = 1000000000        1024 = 1000000000  3.     1000001 = 65          10000001 = 129        100000001 = 257          1000000001 = 513 4.    101 = 5        11101 = 29        101010 = 42        100011 = 35        10110111011 = 1467  5.     2= 10     7= 111     17= 10001     68=  1000100     315=  100111011     765=  1011111101     2047=  11111111111 6.    11+1=100    111+1=1000    1111+1=10000    11111+1=100000  7.      111*10=1110     111*11=10101     1101*101=1000001     1101*1000=1101000

2:   просто  делить  числа  на  2,  и  остатки  писать  в  обратном  направлении 3  :   справа  налево  проставлять  степени  чисел  от  0  до n 4  :   тоже  самое,  что  в  3 5  :   тоже  самое,  что  во  2 6 :   11+1=100,  111+1=1000,  1111+1=10000,  11111+1=100000 7  :   увы,  не  знаю: (

Уменя тоже комп далеко, поэтому пишу программы прямо на телефоне! ; -) и вот, что получилось (все результаты проверены): program first; type arr = array of integer; var a : arr; i, p, l : integer; f : real; begin writeln('вводите числа (0 - окончание ввода)'); i: =1; l : =0; repeat readln(p); if p=0 then break; setlength(a, i); a[i-1]: =p; i: =i+1; l: =l+1; until p=0; p: =0; for i: =0 to l-1 do p: =p+a[i]; f: =p/l; writeln(f: 5: 2); end. program second; var p, i : integer; begin write('введите количество чисел: '); readln(p); for i: =1 to p do write(7*i, ' '); end. program third; var count, p : integer; begin writeln('вводите числа'); count : =0; repeat readln(p); if p=0 then break; if (p mod 2 = 0) then count: =count+1; until p=0; writeln ('было введено ', count, ' чётных чисел.'); end.

"я самый главный! "- заявил монитор, на мне возникает информация и изображения.

"нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего! "

но память возразила : " ээх вы, я тут главнее всех, как вы без меня! ничего не сохранишь, не запомнишь, да в общем без меня сложно что-то представить! "

"да вы что? - начал возмущаться процессор, - главных не должно быть, мы все представляем собой одно целое! " так они и воссоединились и представляют собой одну частичку главного .