Перевод целых десятичных чисел в любую другую системы счисления осуществляется делением числа на основание новой системы счисления (в нашем случае это 8) до тех пор, пока в остатке не останется число меньшее основания новой системы счисления. Новое число записывается в виде остатков деления, начиная с последнего.
Целая часть от деления 293 div 8 = 36 36 div 8 = 4 4 div 8 = 0 0 div 8 = 0
Остаток от деления 293 mod 8 = 5 36 mod 8 = 4 4 mod 8 = 4 0 mod 8 = 0
Остаток от деления записываем в обратном порядке. Получаем целую часть числа в 8-ой системе счисления: 0445 293 = 0445
Для перевода дробной части числа последовательно умножаем дробную часть на основание 8. В результате каждый раз записываем целую часть произведения.
0.125*8 = 1 (целая часть 1) 0*8 = 0 (целая часть 0) 0*8 = 0 (целая часть 0) 0*8 = 0 (целая часть 0) 1000
Получаем число в 8-ой системе счисления: 1000 0.125 = 0.10008
В итоге получаем число: 0445.10008 ответ: 293.125=0445.10008
Решение было получено и оформлено с сервиса: Перевод чисел онлайн
Const K = 3; N = 4; Var A:array[1..K,1..N] of integer; Max,Min,i,j:integer; Begin For i:= 1 to K do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' ') End; WriteLn End; Max:=A[K,N]; Min:=A[K,N]; For i:= 1 to K do For j:= 1 to N do Begin if Max<A[i,j] then Max:=A[i,j]; if Min>A[i,j] then Min:=A[i,j] End; WriteLn('Min = ',Min); WriteLn('Max = ',Max); End.
