var
a:array [1..5,1..6] of integer;
i,j,buf:integer;
begin
randomize;
for i:=1 to 5 do begin
for j:=1 to 6 do begin
a[i,j]:=random(8)+2;
write (a[i,j],' ');
end;
writeln;
end;
for i:=1 to 5 do begin
buf:=a[i,1];
a[i,1]:=a[i,6];
a[i,6]:=buf;
end;
writeln;
for i:=1 to 5 do begin
for j:=1 to 6 do write (a[i,j],' ');
writeln;
end;
readln;
end.
1)36(10)=>(..)(8) Из 10 ой системы в любую другую мы переводим методом деления и остатки записываем в ответ
а)36/8=4 и 4 в остатке ответ 44(8)
б) следуя из задания а тут у нас отрицательное число следовательно будет -44(8)
в)106(10)=>(..)(8)
106/8=13 и 2 в остатке
13/2=1 и 5 в остатке ответ: 152(8)
г) -152(8)
2)a)00010100(2)=>(..)(10) Здесь мы работаем методом коэкоэфициентов
0*2^7+0*2^6+0*2^5+1*2^4+0*2^3+1*2^2+0*2^1+0*2^0=20(10)
ответ:20
б)11110110(2)=>(..)(10)
1*2^7+1*2^6+1*2^5+1*2^4+0*2^3+1*2^2+1*2^1+0*2^0=246(10)
ответ:246(
в) 00011100(2)=>(..)(10)
0*2^7+0*2^6+0*2^5+1*2^4+1*2^3+1*2^2+0*2^1+0*2^0=28(10)
ответ: 28
г) 10101100(2)=>(..)(10)
1*2^7+0*2^6+1*2^5+0*2^4+1*2^3+1*2^2+0*2^1+0*2^0=86(10)
ответ: 86
Объяснение:
1)36(10)=>(..)(8) Из 10 ой системы в любую другую мы переводим методом деления и остатки записываем в ответ
а)36/8=4 и 4 в остатке ответ 44(8)
б) следуя из задания а тут у нас отрицательное число следовательно будет -44(8)
в)106(10)=>(..)(8)
106/8=13 и 2 в остатке
13/2=1 и 5 в остатке ответ: 152(8)
г) -152(8)
2)a)00010100(2)=>(..)(10) Здесь мы работаем методом коэкоэфициентов
0*2^7+0*2^6+0*2^5+1*2^4+0*2^3+1*2^2+0*2^1+0*2^0=20(10)
ответ:20
б)11110110(2)=>(..)(10)
1*2^7+1*2^6+1*2^5+1*2^4+0*2^3+1*2^2+1*2^1+0*2^0=246(10)
ответ:246(
в) 00011100(2)=>(..)(10)
0*2^7+0*2^6+0*2^5+1*2^4+1*2^3+1*2^2+0*2^1+0*2^0=28(10)
ответ: 28
г) 10101100(2)=>(..)(10)
1*2^7+0*2^6+1*2^5+0*2^4+1*2^3+1*2^2+0*2^1+0*2^0=86(10)
ответ: 86
Объяснение:
Program vvv2;
uses crt;
const n=5;
const m=6;
var
a:array[1..n,1..m] of integer;
st:array[1..n] of integer;//массив для хранения столбца
i,j,nomer,min : integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:= Random(100); //заполняем массив
writeln;
writeln('Начальный массив:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);//выводим массив
writeln;
end;
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
st[i]:=a[i,1];
a[i,1]:=a[i,m];
a[i,m]:= st[i];
end;
writeln;
writeln('Результат:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);//выводим массив
writeln;
end;
end.