Уважаемые! не в службу , а в дружбу ! с по информатике ! буду признателен ! 3. выполните перевод чисел в десятичную систему счисления: а) двоичное число 10111 - б) четверичное число 133 - в) восьмеричное число 261 - г) шестнадцатеричное число а6 - д) пятеричное число 43 - 4. сравните числа: a) 143(6) 75(8) б) 285(10) 11d(16) в) 111111(2) 1111(8) г) 6с(16) 101001(2) д) 55(16) 125(8) е) 143(5) 211(3) 5. расставьте в порядке возрастания числа число порядковый номер 35(10) 36(8) 3а(16) 100101(2) 130(4)

*2^4+0*2^3+1*2^2+1*2^1+1*2^0=16+0+8+4+2+0=(считай) *4^2+3*4^1+3*4^0= посчитай, учитывая,что любое число в 0 степени=1

Var   a: array[1..30,1..30] of integer;   n,min, max, i,j,s: integer; begin writeln('n='); readln(n); randomize; writeln('sluciayniy massiv: '); for i: =1 to n do begin   for j: =1 to n do  begin      a[i,j]: =random(51)-25;     write(a[i,j]: 5);   end;     writeln; end;   s: =0;   min: = a[1,1];   max: = a[1,1];   for i: = 1 to n do   for j: = 1 to n do  if a[i,j]< min then   min : = a[i,j];   for i: = 1 to n do  for j: = 1 to n do   if a[i,j]> max then   max: = a [i,j];   for i: =1 to n do   for j: = 1 to n do   if i=j then s: = s+a[i,j];   writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s);   readln;   end. var   a: array[1..100,1..100] of integer;   n,min, max, i,j,s: integer; begin writeln('n='); readln(n); writeln('vvedite massiv: '); for i: =1 to n do begin    for j: =1 to n do begin  read(a[i,j]);   end;   writeln;     end;   s: =0;   min: = a[1,1];   max: = a[1,1];   for i: = 1 to n do  for j: = 1 to n do  if a[i,j]< min then min : = a[i,j];     {поиск минимального элемента }   for i: = 1 to n do   for j: = 1 to n do  if a[i,j]> max then max: = a [i,j];   {поиск максимального элемента} for i: =1 to n do  for j: = 1 to n do  if i=j then s: = s+a[i,j];   { поиск элементов главной диагонали и нахождение их суммы} writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s);   readln; end.

Const nx = 30; var c: array[1..nx]of integer; r,i,n,m,max,k,el: integer; begin randomize; write('введите количество элементов'); readln(n); for r: =1 to n do begin c[r]: =random(100)-50; write(c[r]: 4); end; writeln; for r: =1 to n do begin if 0 < c[r] then begin for i: =r to n do begin if (0 > c[i])and (abs(c[i])= c[r]) then  writeln(r: 3,c[r]: 4,' ',i: 3, c[i]: 4); end; end; if 0 > c[r] then begin for i: =r to n do begin if (0 < c[i])and (c[i]= abs(c[r])) then  writeln(r: 3,c[r]: 4,' ',i: 3, c[i]: 4); end; end; end; end.