Переведите в восьмеричную систему число f3, 7с16. чему равно это число в десятичной системе?

F3(16)   = 11110011(2) далее  11 110 011  (2)   = 363(8); переводим это число в десятиричную сс:   для перевода необходимо умножить разряд числа на соответствующую ему степень разряда. f3 = 16^2* 0+ 16^1*15 + 16^0 *3 = 0 + 240 + 3 = 2437с16(16)   = 0111с00010110( 2) далее  000 111 с00 010 110(2)   = 07с0026(8); переводим это число в десятиричную сс:   7с16 = 16^3*7 + 16^2*c + 16^1*1 + 16^0 *6 = 28672 + 0 + 16 + 6 = 28694

Begin   randomize;   for i : = 1 to n do     for j : = 1 to n do       x[i,j] : = random(100);     for i : = 1 to n do begin     indmax : = 1;     max : =x[i,1];     for j : = 2 to n do begin       if x[i,j]> max then begin         max : = x[i,j]; //наибольший элемент строки с номером i         indmax : = j;   //столбец, в котором находится наибольший элемент строки                             //с номером i       end;     end;   //смена элементов     x[i,indmax] : = x[i,i];     x[i,i] : = max;   end;   end;

Type       arr = array[,] of integer;       arrb = array of integer; var       a1, a2, a3: arr;       b1, b2, b3: arrb;       n,m: integer; procedure zapoln(var a: arr; k: integer); var   i, j, n, m: integer; begin writeln('массив а',k); n: = length(a,0); m: = length(a,1); for i : = 0 to n-1 do   begin   for j : = 0 to m-1 do     begin     a[i,j]: =random(10);     write(a[i,j]: 2)     end;   writeln   end end; procedure formb(a: arr; var b: arrb; n,m,r: integer); var i,j,k: integer; begin writeln('массив в',r); for i: =0 to n-1 do   for j: =0 to m-1 do     if (1< =a[i,j]) and (a[i,j]< =3) then       begin       b[k]: =a[i,j];       write(b[k]: 3);       k: =k+1       end; writeln end; function razm(a: arr; n,m: integer): integer; var i,j: integer; begin for i: =0 to n-1 do   for j: =0 to m-1 do     if (1< =a[i,j]) and (a[i,j]< =3) then result: =result+1 end; begin write('введите n1 и m1: '); readln(n,m); setlength(a1, n, m); zapoln(a1,1); setlength(b1, razm(a1,n,m)); formb(a1,b1,n,m,1); write('введите n2 и m2: '); readln(n,m); setlength(a2, n, m); zapoln(a2,2); setlength(b2, razm(a2,n,m)); formb(a2,b2,n,m,2); write('введите n3 и m3: '); readln(n,m); setlength(a3, n, m); zapoln(a3,3); setlength(b3, razm(a3,n,m)); formb(a3,b3,n,m,3); end.