Ответ:
Объяснение:
110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 53₁₀
53₁₀ = 5*8⁰ + 6*8¹ = 65₈
53₁₀ = 5*16⁰ + 3*16¹ = 35₁₆
217₈ = 7*8⁰ + 1*8¹ + 2*8² = 143₁₀
143₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10001111₂
143₁₀ = 15*16⁰ + 8*16¹ = 8F₁₆
216₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11011000₂
216₁₀ = 0*8⁰ + 3*8¹ + 3*8² = 330₈
216₁₀ = 8*16⁰ + 13*16¹ = D8₁₆
4AC₁₆ = C*16⁰ + A*16¹ + 4*16² = 1196₁₀
1196₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 0*2⁹ + 1*2¹⁰ = 10010101100₂
1196₁₀ = 4*8⁰ + 5*8¹ + 2*8² + 2*8³ = 2254₈
Интернет!!!!!!!!!!!!!!!!!!!!!!!!!
Const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..n*m]of integer;
i,j,buf,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
k:=k+1;
b[k]:=a[i,j];
end;
writeln;
end;
writeln;
for i:=1 to n*m-1 do
for j:=i+1 to n*m do
if b[i]>b[j] then
begin<span>
buf:=b[i];</span>
b[i]:=b[j];
b[j]:=buf;
end;
for i:=1 to m*n do<span>
write(b[i]:4);
end.</span>
Программа для случая, когда в строке только "0", "1" и пробелы (т.е. проверки корректности ввода нет):
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,k,max:integer;
begin
if combobox1.Text<>'' then
begin
s:=combobox1.Text;
combobox1.Items.Insert(0,s);
s:=s+' ';
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
k:=0; max:=0;
for i:=1 to length(s) do
if s[i]<>' '
then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
label1.Caption:='Количество символов в самой длинной группе: '+inttostr(max);
end;
end;
В десятичной системе; в пятеричной системе
0-0
1-1 5^0=вес 1
2-2
3-3
4-4
5-10 цифра 0 имеет вес 1 цифра 1 имеет вес 5 (5^1) "5"-основание системы
6-11 цифра 1(правая) имеет вес 1(5^0=1), цифра 1(левая) имеет вес 5(5^1=5)
7-12 цифра 2 имеет вес 1(5^0=1), цифра 1 имеет вес 5(5^1=5)
8-13 3==1(вес) , 8===5(вес)
9-14
10-20 0 имеет вес 1(5^0=1), 2 имеет вес 5(5^1=5)
11-21
12-22
13-23
14-24
15-30
16-31
17-32 2===1, 3====5
18-33 3===1,3====5
19-34 4===1,3====5 в остальных случая аналогично
20-40