Теперь переведем из 2 в 8 10000011000110101 (2), разбиваем числа по 3 начиная с конца: 010 000 011 000 110 101 , переведем каждое из них в 8 2 0 3 0 6 5 10000011000110101 (2) = 203065 (8)
Теперь переведем из 2 16 10000011000110101 (2), разбиваем числа по 4 начиная с конца: 0001 0000 0110 0011 0101 , переведем каждое из них в 16 1 0 6 3 5 10000011000110101 (2) = 10635 (16)
Var a:array [1..30,1..30] of integer; i,j,n,m,b:integer; find:boolean; begin randomize; writeln('введите размерность матрицы '); readln(n,m); writeln('введите число b '); readln(b); find:=false; for i:=1 to N do for j:=1 to M do begin a[i,j]:=-110+random(200); if a[i,j]=b then begin writeln('Элемент в массиве ',a[i,j]:5, ' =',b:5); find:=true; exit; {остальные эл-ты не рассм.} end end; if find=false then writeln('элемент не найден'); end.
var a:array [1..30,1..30] of integer; i,j,n,m,b:integer; find:boolean; begin randomize; writeln('введите размерность матрицы '); readln(n,m); writeln('введите число b '); readln(b); find:=false; for i:=1 to N do begin for j:=1 to M do begin a[i,j]:=-110+random(200); write (a[i,j]:7); end; writeln; end; for i:=1 to N do for j:=1 to M do if a[i,j]=b then begin writeln('Элемент в массиве ',a[i,j]:5, ' =',b:5); find:=true; exit; {остальные эл-ты не рассм.} end; if find=false then writeln('элемент не найден'); end.
33562/2=16781 - ост 0
16781/2=8390 - ост 1
...
1/2=0 ост 1
Запишем остатки в обратном порядке: 10000011000110101
67125 (10)=10000011000110101 (2)
Теперь переведем из 2 в 8
10000011000110101 (2), разбиваем числа по 3 начиная с конца:
010 000 011 000 110 101 , переведем каждое из них в 8
2 0 3 0 6 5
10000011000110101 (2) = 203065 (8)
Теперь переведем из 2 16
10000011000110101 (2), разбиваем числа по 4 начиная с конца:
0001 0000 0110 0011 0101 , переведем каждое из них в 16
1 0 6 3 5
10000011000110101 (2) = 10635 (16)
ответ: 10000011000110101 (2); 203065 (8); 10635 (16);
PS: Разбитие на 3 и на 4 объясняется тем, что 1 число восьмеричное пишется в двоичной системе из 3 знаков, а 16 из 4.