1.переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатиричную системы счисления а)279 б)281 в)841,375 2 переведите числа в десятичную систему счисления. а) 1100111001(2) б
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var m,n:integer; Write('Количество строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,10,99); for var i:=0 to n-1 do begin for var j:=0 to m-1 do Print(a[i,j]); Writeln end; var p:=ReadInteger('Введите число Р:'); var b:array of integer; SetLength(b,4*m); var k:=0; for var i:=n-p to n-1 do for var j:=0 to m-1 do if a[i,j] mod 4=0 then begin b[k]:=a[i,j]; Inc(k) end; SetLength(b,k); b.Print end.
279 = 100010111 (2), 427 (8), 117 (16)
281 = 100011001 (2), 431 (8), 119 (16)
841 = 1101001001 (2), 1511 (8), 349 (16)
379 = 101110111 (2), 567 (8), 177 (16)
1100111001 = 825
10011101 = 157