#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>// перевод из основания frm в основание 10
<span>void snd(int frm,int* n,char s[]) {
</span><span> int m,p;
</span><span> m=strlen(s);
</span><span> if (m>0) {
</span><span> if (s[m-1]<58) p=s[m-1]-48;
</span><span> else p=s[m-1]-'a'+10;
</span><span> s[m-1]=0; snd(frm,n,s);
</span><span> }
</span><span> else p=0;
</span><span> *n=*n*frm+p;
</span><span>}
</span>// перевод числа n из основания 10 в to
<span>void dsn(int* n,int to,char s[]) {
</span><span> static int k=0;
</span><span> int m;
</span><span> m=*n%to; *n/=to; k++;
</span><span> if (*n>0) dsn(n,to,s);
</span><span> else { s[k]=0; k=0; }
</span><span> if (m<10) s[k]=m+48;
</span><span> else s[k]=m+'a'-10;
</span><span> k++;
</span><span>}
</span><span>int main() {
</span><span> </span><span>
</span> int osns,osnd;
<span> int n=0;
</span><span> char s[30];
</span><span> cout<<"from osn: "; cin>>osns;
</span><span> cout<<"number: "; cin>>s;
</span><span> cout<<"to osn: "; cin>>osnd;
</span><span> snd(osns,&n,s);
</span><span> dsn(&n,osnd,s);
</span><span> cout<<s<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
from osn: 5
number: 13211
to osn: 16
420
from osn: 16
number: 2f3de
no osn: 6
4051502
</span>
100 в десятичной = 1100100 в двоичной.
Ответ: 3 единицы
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
Write(a.Col(col).Average:0:2,' ');
col+=2
end;
Writeln
end.
<u>Пример</u>
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85
Как вариант - перевести в десятичную систему счисления и поделить
