// 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.
Смотрим на прилагаемую картинку. Первая строка - разряды, т.е показатели степени двойки. Вторая - значения степеней двойки, например, 2^8=256 В третьей строке делаем вычисления. Записали исходное число 994. Смотрим ближайший разряд - девятый - там 512. 994>512, значит такая степень двойки в числе 994 содержится. Пишем в девятом разряде следующей строки 1, а рядом с 994 (в 9 разряде пишем остаток 994-512=482. Повторяем процесс. В 8 разряде записано 256. 482>256. Снова 1 в четвертую строку и разность 482-256=98 в соседний, 7 разряд. Так продолжается, пока не дойдем до 5 разряда. У нас там число 2, а в соседнем разряде 16. 2>16, поэтому разряд пропускаем, а в 4й строке пишем ноль. Так поступаем, пока не придем в разряд 1. 2=2, поэтому делаем вычитание, пишем 1 в 4ю строку, а в третьей пишем, как всегда, разность 2-2=0. Все. Остальные разряды четвертой строки заполняем нулями. Двоичное представление числа - это 4-я строка.
994₁₀ = 111110010₂
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку