Представить числа в машинном коде: 819 -278

819 = 1100110011, -278 = -100010110

Program abc;
Const 
n=3; 
m=3;
Var  a:array[1..n,1..m] of integer; 
b,y,i,j,sum:integer; 
srd:real; 
Begin 
Writeln('Введите числа массива: ');   
For i:=1 to n do     
For j:=1 to m do     
Begin       
Write('a[',i,',',j,']= ');       
 Readln(a[i,j]);       
if a[i,j]>0 then          
begin            
sum:=sum+a[i,j];           
inc(b);         
 end        
else         
If a[i,j]<0 then           
Inc(y);       
End;     
If sum>0 then     
begin      
srd:=sum/b;     
Writeln('Среднее =',srd);     
end    
 else     
Writeln('Нет положительных членов массива');     
If y>0 then     
begin      
Writeln('Количество отрицательных элементов =',y);     
end      
else     
Writeln('Нет отрицательных членов массива');
End.          

Решение 1:  Пусть N – искомое основание системы счисления. Так как запись числа 63 в системе счисления с основанием N содержит 3 цифры, то N2.<= 63 <N3 . Этому условию удовлетворяют числа N = 4, 5, 6, 7, 8.  Так как запись числа 63 в позиционной системе счисления с основанием  N заканчивается на 0, то N – делитель числа 63. Следовательно, N = 7.

Замечание. Можно сделать проверку – записать число 63 в 7-чной системе счисления. Имеем:

63:7  = 9 (ост 0);  9:7 =  1 (ост 2)  1:7  = 0 (ост 1)Вывод: 6310=1207