Перевод из двоичной системы в десятичную: 110000 и 1100, 001 перевод из десятичной в двоичную: 31 и 127 выполнить сравнения чисел: 10011_{2} и 19_{10} 101111_{2} и 43_{10} 47_{10} и 101110_{2} записать ряд двоичных чисел от 10100
Таке правило: добуток крайніх членів пропорції дорівнює добутку середніх її членів. 1) 2) 3)
artemka56rus
21.09.2020
Var f: array[1..10] of integer; i,suma,sumb: integer; begin randomize; for i: =1 to 10 do begin f[i]: =random(10)+10; write(f[i],' '); end; suma: =0; sumb: =0; for i: = 1 to 10 do if f[i] mod 2 = 0 then suma: =suma+f[i]; else sumb: sumb+f[i]; writeln('сумма четных: ',suma); writeln('сумма нечетных: ',sumb); end. var f: array[1..8] of integer; i,k,sumb: integer; begin randomize; for i: =1 to 8 do begin f[i]: =random(10)+10; write(f[i],' '); end; k: =0; sumb: =0; for i: = 1 to 8 do if f[i] mod 2 = 0 then k: =k+1; else sumb: sumb+f[i]; writeln('количество четных: ',k); writeln('сумма нечетных: ',sumb); end.